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RISC OS AGAIN 


We make no apologies for raising the issue of RISC OS once again in our editorial. All reports 
from Acorn indicate that the company has initial supplies of the RISC OS upgrade already in 
stock, and that kits will start to go out to users from early April. We also expect further 
announcements from Acorn about the Archimedes range at the same time. 


We hope we have already managed to convey to you some of the enthusiasm and 
excitement which we feel about RISC OS and its associated software. It is a very significant 
step forward for the Archimedes, and will do more than anything to enhance its reputation in 
the market-place. 


This is likely to be the last issue of RISC User in which we will separately identify RISC OS 
items from the rest, as in the future RISC OS will be the standard to which we shall be 
working. However, RISC OS is a development of the existing Arthur 1.2, and any programs 
which we publish, unless specifically using any of the new features of RISC OS, will continue 
to work happily on existing systems. 


We feel that it is important for the Archimedes world that all users upgrade to RISC OS at the 
earliest possible opportunity, and we hope that RISC User readers will be in the forefront of 
this movement. The cost (£33.35 plus £3 p&p if ordered from BEEBUG) is very reasonable 
for what you will receive (two new manuals, three discs and a set of four chips), but more 
importantly it will transform your Archimedes into a superlative machine. 


This month's telesoftware password is Hebrides. 
(See BEEBUG pages on Micronet) 
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RISC OS IS AROUND 


If you placed an advance order with BEEBUG for 
your copy of RISC OS, then the chances are that you will 
have it by the time you read this. It is known that Acorn 
are currently building up stocks of the new operating 
system, and at the time of writing (end of February) it is 
thought that they will be released around the middle of 
March. The upgrade kit consists of four ROMs, an 
installation guide, a new Welcome guide, a new User 
Guide, and three discs. Two of these are ‘Welcome’ 
discs, while the third contains application directories for 
use with commercial software. The complete system is 
packed in a sturdy foam-lined white cardboard sleeve. If 
you haven't ordered RISC OS, then you can still do so 
from BEEBUG. The price to members is £36.35 including 
VAT and postage. 


SHOWING OFF 


It had been thought that users of Acorn equipment 
would have been deprived of any specialist shows this 
year, because Database Publications decided not to hold 
their traditional May and Novmember shows. However, 
Redwood Publishing, organisers of the Acorn User show, 
which was last year called off, were quick to fill the gap. 
They will be holding an Acorn User show at Alexandra 
Palace from the 21st to 23rd of July. This is a day shorter 
than previous AU shows, and at a venue rather more out 
of the way than the Barbican. 


BE KIND TO YOUR KEYBOARD 


There is nothing better at ruining a keyboard than a 
nice hot cup of coffee. Recognising this, Kador has 
produced a range of Seal 'n' Type keyboard covers that 
protect the keyboard in every-day use. The covers are 
made of very thin, but highly durable, transparent PVC, 
which protects the keys while retaining the ‘feel’ of the 
keyboard. The Seal 'n’ Type cover for the Archimedes 
costs £11.95 inclusive, and is available from Kador, Unit 
4, Pontcynon Industrial Estate, Abercynon, Mid 
Glamorgan CF45 4EP, tel. (0443) 740281. Kador also 
produce a range of Peace ‘n' Quiet noise excluders for 
printers. 


A PREMIER PROGRAM 


Premier, a recently released text processor from 
Circle Software, is claimed to be a new concept in 
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word processors. Documents can include so-called 
Dynamic Text which is text that can be updated at a 
later date without changing the actual file. For 
example, a table of values can be incorporated into a 
document, with the actual values being saved in a 
separate file. This means the table can be changed 
just by altering the values file. Premier costs £50 (inc. 
VAT), which includes any updates released this year. 
A demo disc is available for £5. More details from 
Circle Software, 33 Restrop View, Purton, Swindon, 
Wiltshire SN5 9DG. 


UNIX DEAL FOR SCHOOLS 


Acorn has launched a special drive to encourage 
schools to buy the R140 UNIX system reviewed in this 
issue. Local Education authorities are being given the 
chance to purchase the R140 complete with a colour 
monitor and two school administration packages (SIMS 
and SCRIPT) for £2695 (ex. VAT). This represents a 
saving of nearly £1500 over the normal price. 


BEAT THE BUDGET 

Instead of holding a post-mortem on the budget 
speech this year, you can try and do better yourself with a 
package from Topologika. Yes Chancellor! is a complete 
simulation of the country's economy, including inflation, 
stock market fluctuations, and exchange rates, as well as 
unforeseen events such as strikes and election fever, 
Yes Chancellor! was originally released a number of 
years ago for the BBC model B, but the new version is for 
an Archimedes equipped with the PC Emulator. Yes 
Chancellor! costs £18 (inc. VAT) from Topologika, PO 
Box 39, Stilton, Peterborough PE7 3RL, tel. (0487) 
831153. 


GATE ARRAY DESIGNER 

Silicon Vision has launched a package to simulate the 
design of gate arrays - complex custom-made chips which 
form the heart of many computers. Real chip design 
systems cost many thousands of pounds, and are 
therefore impractical to use for teaching purposes. 
However, Silicon Vision's system sells for just £89.95 (inc. 
VAT). More details can be obtained from Silicon Vision, 
Signal House, Lyon Road, Harrow, Middlesex HA1 2AG, 
tel. 01-422 2274. RU] 
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David Spencer investigates Acorn's entry into the UNIX marketplace. 


Acorn has for a long time been trying to 
penetrate the business sector. However, the 
company's success has not been notable until 
now (remember the Acorn Business Machine 
and the Cambridge Workstation?) This time 
Acorn is attacking the growing market of super- 
micros and small mini-computers. The machine 
with which they are doing this is the R140 UNIX 
Workstation. 


The Acorn R140 Unix system 


THE HISTORY 

Before describing the R140 | will give a brief 
history of UNIX. It all started many years ago 
when people first realised that computers were 
to play a major part in the everyday life of the 
future. A pioneering multi-user operating 
system called MULTICS was developed for the 
new breed of practical computers. 
Unfortunately, it was too advanced for the 
hardware of the time and was not widely used. 
Several years later a team working for the Bell 
Corporation (now AT&T) converted MULTICS 
to a single-user system which they called UNIX 
(UNI for one as opposed to MULTI for many). 
Unlike earlier operating systems which were 
hand coded in machine code, UNIX was (and 
still is) written in a new high-level language 
developed specially for the job. This language 
is none other than C. The use of a high level 
language means that UNIX can easily be 
ported to any computer, regardless of the 
processor it uses. Contrast this with something 
like RISC OS which is only for Archimedes type 
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computers, or even MS-DOS which while 
included on many different computers will only 
run with an 8086 processor, or similar. 


The major drawback of UNIX is the size of 
system needed to run it. A typical UNIX-based 
computer will need several megabytes of RAM 
and tens of megabytes of disc storage. This 
has tended to restrict UNIX to mini and 
mainframe systems in the past. Now though, 
the increase in power of micros has made 
UNIX a viable proposition for small systems. 


THE R14 

At first sight you might think that the R140 is 
an ordinary Archimedes 440, the only visible 
difference being the stickers on the front panel 
and the keyboard. Indeed, the similarity 
continues inside. The most obvious change is 
the inclusion of a larger hard disc drive (about 
56Mb). This extra storage is mostly used by the 
UNIX system software. The R140 also uses a 
faster version of the MEMC chip (the device 
that controls memory access) which will allow 
for future speed improvements, although it 
offers no advantage at the present time. The 
only other change is a slightly redesigned 
podule backplane which avoids possible 
problems that were discovered while 
developing the Ethernet podule described later. 


Seeing the similarity between the 440 and 
the R140 you might expect Acorn to offer an 
upgrade path. However this will not be the 
case, more | suspect for marketing strategy 
than technical reasons. 


STARTING UNIX 

When you first turn on the R140 you are 
presented with the standard RISC OS Desktop, 
the only difference being a UNIX icon that 
appears on the iconbar along with the resident 
applications. At this point the computer can be 
used as a normal RISC OS-based Archimedes. 
A partition is set up on the hard disc making 
3Mb available to this mode of operation. 


Clicking on the UNIX icon brings up a 
warning that RISC OS is about to be shut-down 
and UNIX started. At this stage you can use the 


5 


UNIX FOR THE ARM 
aoe RRS NT) Se a ee eh ee 


mouse to perform a number of diagnostic 
functions, or you can acknowledge the 
message which will cause UNIX to start up. 


The first thing to strike you when UNIX is 
Started is the total loss of colour. The friendly 
RISC OS Desktop display gives way to a few 
lines of black and white text asking you to log 
on. UNIX insists that you log on as a known 
user before giving access to any part of the 
system. It is actually possible to log on more 
than once, and it is even possible to have two 
users logged on simultaneously, one using the 
R140, and the other using another computer as 
a terminal, this being connected to the R140 
via the serial port or the network. 


UNIX COMMANDS 

As UNIX has its basis in early mainframe 
operating systems, many of the commands 
offered are quite obscure. For example, the 
command to list the files in a directory 
(equivalent to *CAT) is ‘Is’. The operation of 
most commands can be modified by a number 
of single letter qualifiers placed after the 
command name. 


To make the use of UNIX commands 
easier, the system features an entire on-line 
user guide. This is invoked by typing 'man 
<command>', where command is the name of 
the command to be described. This displays 
full documentation for the specified 
command, 


WINDOWS AND THE DESKTOP 

Supplied with the R140 is a window system 
and desktop developed by IX! Limited. This is 
similar to the RISC OS window system, and 
allows the same tasks to be performed. One 
interesting feature is that the layout of the 
control areas of a window can be changed. For 
example, you can move the scroll-bars to the 
opposite sides. 


The IXI Desktop manager is again much 
like that of RISC OS. However, instead of 
having an iconbar, icons can be placed 
anywhere on the screen. Furthermore, at any 
point, a chosen window can be reduced to an 
icon, and then reopened when needed. 
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FILING SYSTEMS AND NETWORKS 


The floppy disc drive of the R140 can read 
several different formats, including those used 
by the majority of other UNIX systems. 
However, most UNIX systems will use a 
network, and an Ethernet interface is available 
for this, either with the R140, or as a later 
upgrade. Ethernet is a system providing similar 
features to Acorn's Econet, but much faster. It 
is a standard system used by most UNIX 
installations. From a user's point of view, the 
R140 supports Sun's NFS system which 
extends the hierarchical directory structure so 
that each computer's entire disc contents is 
contained as a sub-directory in a 'Super- 
directory’. This means that any computer on the 
network can read a file from any other just by 
specifying the computer to use in the pathname 
of the file. 


DOCUMENTATION 

In terms of sheer volume, the documentation 
supplied with the R140 is impressive. There is a 
total of six manuals, a lengthy release note and 
a licensing agreement, all supplied in a box 
separate from the main hardware. The first 
three manuals are the standard RISC OS 
Welcome and User Guides as supplied with 
RISC OS, and the new BBC Basic Guide to be 
supplied with 400 series machines. 


The other three manuals are dedicated to the 
UNIX system. The first of these is a Welcome 
Guide which explains about the machine and 
UNIX, and how to get it all set up and started. 
The UNIX User guide is much bigger and more 
comprehensive than the introductory work. This 
manual covers the main features that an 
average UNIX user will need while using the 
R140. The final manual explains the XI Window 
and XDesktop system, and includes the actual 
XI software which must be installed from floppy 
initially. What none of the manuals cover at all 
are the vast number of commands offered by 
UNIX, or the use of the supplied C compiler. 
This may sound like a major omission, but 
remember that UNIX is totally standard, and 
therefore any UNIX manual or text book will do. 
As most users will not need this information 
Acorn decided to recommend a suitable manual 
rather than supplying one. 
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HOW DOES IT COMPARE? 

With UNIX being a fairly stringent standard, 
the one thing that does set machines apart is 
their performance. Table 1 gives the average 
result of a number of standard UNIX 
benchmark timings for several UNIX systems. 
(The lower the value, the faster the speed). The 
approximate price is also given for reference. 


Computer; R140 VAX11/780 SUN 3/50 


Benchmark: 1.6 3.3 2.2 


Price: £4500 £30000 £5850 


Only the 80386-based top of the range Sun 
is faster than the R140. Indeed, the R140 is 
twice as fast as the £30000 VAX mainframe. 


APPLICATIONS 

| have deliberately not mentioned 
application software for the R140. This is 
because no software is supplied. However, the 
UNIX standard ensures that, in theory, all UNIX 
software can be ported to the R140. Needless 
to say, things are not quite so easy in practice, 


SUN 386i/250 APPLE MAC Il 
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although the current R140 software catalogue 
does include packages to perform most 
common tasks, such as word processing and 
database management. 


PRICE AND AVAILABILITY 
The standard R140 costs £3500 (ex. VAT), 
or £3949 with the Ethernet podule. These 
prices do not 
include a moni- 
tor. The Ethernet 
podule is also 
available 
separately for 
£449 (ex. VAT), and a hardware floating point 
co-processor and SCSI interfaces are promised 
in the future. The latter will allow additional hard 
disc drives to be connected, along with tape 
streamers etc. Acorn has decided to market the 
R140 through UNIX dealers, rather than the 
company's existing dealer network. They say 
that this is so that the machine can be given the 
support it needs, and so that customers can 
see it in comparison to other systems. 
RU) 
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ADVANCED STATISTICAL SYSTEM 


For Acorn Archimedes; BBC Models B, B+ and Master; "Industry Standard” machines 
A powerful and practical tool for Research, Industry, Business, and Teaching 


Integrated, interactive, robust, fast, accurate, modular. Designed to facilitate data critique. 

Many data entry options. Full data management and formatted display. Extensive data transforms. 
Handles missing variables and data subsets. Scatterplots, regression plots, function plots. 
Univariate statistics. Paired and unpaired t tests. Chisquare tests. Nonparametric methods. 

Unrivalled REGRESSION facilities eg weighted, through the origin, standardised. Full statistical information. 
Residuals, fitted and predicted values. Much more. Correlations. ANOVA. Contour plots of regressions. 
Regression DIAGNOSTICS - VIFs, influential points etc. Automatic warnings. 

ROBUST regression - many influence functions. Powerful NONLINEAR least squares 
Time Series, eg moving averages, exponential smoothing, causal models. 

One- Two- and Three-way ANOVA subsystems. Distributions generator. Histograms. Linear Calibration. 
Cluster analysis. Many other powerful analytical and descriptive features. Full utilities. 


Price £120-£180 (machine and version dependent). Special RISC USER discount available. 
There's far too much to describe here. Get full information now from: 
Serious Statistical Software, Lynwood, Benty Heath Lane, Willaston, South Wirral L64 1SD Tel. 051 327 4268 
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Attention RISCOS Users!! 


A New Communications Package 
from BBC Soft 


Taking full advantage of RISCOS, ArcCommis an exciting, 
brand-new communications package for the Archimedes 
that you can't afford to be without! 


ArcComm's comprehensive design allows access to all 
three European videotex standards (Prestel, Télétel, and 
Bildshirmtext), together with VT52, VT102, and ANSI 
terminals. 


It's wonderfully simple to use! All screen displays are clear 
and uncluttered, with pop-up menus and dialogue boxes, 
making control as easy as possible. 


ArcComm supports Hayes, DTI, and manual modems, 
with details of how to write drivers for other modems in the 
User Guide provided. You will need RISCOS, and at least 
1Mbyte of memory to use ArcComm. 


To order ArcComm, simply write to the address shown, 
enclosing a cheque. ArcComm is £29.95 inc VAT, plus 
£1.50 p&p per order. 


BEC Soft, 
PO Box 234, 
WETHERBY, 

West Yorkshire, 
ES23 7EU. 
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David Spencer presents a genuine RISC OS multi-tasking application. 


Over the next three issues, | will be showing how 
to write a fairly simple, but comprehensive, multi- 
tasking application for RISC OS. The program will 
be a notepad utility, allowing short notes and memos 
to be ‘jotted down’, and either saved for later use or 
printed out. This application was chosen both 
because it has some practical use, and is also basic 
enough not to result in a massively long program. 
Although the purpose of these articles is to 
demonstrate the development of a RISC OS multi- 
tasking application, it is not feasible to give a 
complete line by line account of the program 
because of the complexity of the overall system. To 
understand the workings of the program, a basic 
knowledge of the WIMP system is necessary. 


THE APPLICATION DIRECTORY 

The first step in writing our application is to 
create an application directory as explained last 
month (page 20). This directory will have the name 
"INotePad'’, and will contain five files: 

'Boot 

!Run 

!Sprites 

!RunImage 

Sprites 
The purpose of the first three was explained in the 
article last month. The fourth one, '!Runimage’, is 
the application program itself, while ‘Sprites’ will 
contain various sprites used by the program. 


You should start by creating the directory 
anywhere on your working disc using *“CDIR 
'NotePad. Secondly, the !Boot and !Run obey files 
should be entered, and saved in the application 
directory. The contents of these files is given in 
listings 1 and 2 respectively. The comment lines 
(those starting with '|' can be omitted if you wish, 
but for clarity | suggest that at least the filename 
appears somewhere in the file. The command files 
can be entered using a text editor such as Twin or 
RISC OS's ArcEdit (see article in this issue), or 
using “BUILD. However, in the case of “BUILD, all 
occurrences of '|' and ‘<' in the text must be 
preceded by a'|' (giving '||' and '|<') when the text 
is entered. This prevents “BUILD from trying to 
interpret the lines as they are entered. In all cases, 
the file type of both files should be set to ‘Obey’. If 
you are using ArcEdit, this will be done 
automatically provided you start by selecting the 
‘Create Obey File’ option from the iconbar menu. If 
the files are entered any other way, the 
commands: 
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*SETTYPE $.!NotePad.!Boot Obey 
*SETTYPE $.!NotePad.!Run Obey 
will be needed to set the correct filetype. 


The comments in the two obey files should give 
you an idea of the functions they perform, especially 
if you followed last month's article on application 
directories. The !Boot file sets up a name for a 
chosen filetype and then an alias to specify what 
happens when a Notepad is run. File type &FEE is 
used because this was previously allocated to the 
Arthur 1.20 Notepad. The final action of !Boot is to 
load in the sprites used to represent the application, 
and its data files, in a directory viewer. 


The !Run file starts by repeating all the actions 
of !Boot, because in some cases it is possible that 
{Boot is never executed (for example, if two 
applications have the same name). It then sets the 
system variable 'NotePad$Dir to the pathname of 
the application directory and ensures that 32K of 
memory is available. This latter function is 
achieved using the command *WimpSlot which 
informs the task manager of the amount of 
memory needed by this application. Finally, !Run 
actually runs the Basic program !Runimage which 
is the application itself. 


SPRITE FILES 

The next stage is to create the two sprite files 
needed by the application. Specifying sprite 
definitions in a magazine article is particularly 
awkward, and we have decided to adopt the 
approach of listing 3. This reads the definitions 
from a string of DATA statements, and creates the 
two sprite files. If you have any alternative 
suggestions for specifying sprite definitions in the 
future then please let us know. One point to watch 
out for is that this listing is formatted to 43 columns 
for readability, rather than our usual 40. 


The file '!Sprites' contains sprites called 
‘Inotepad' and 'file_fee’. The first of these, which 
has the same name as the application directory, is 
used to display an icon for the application in the 
filer, and we will also use it to represent the 
application on the iconbar. The second sprite is 
used for data files that are recognised by our 
application. (Any file of filetype &FEE.) 


The second sprite file, ‘Sprites’ contains sprites 


used solely by this particular application. There are 
two sprites called ‘leftarrow' and ‘rightarrow’, 
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representing left and right pointing arrows. The 
difference between the two files is the way in which 
they are loaded. The file '!Sprites' is loaded into the 
WIMP's common sprite pool using the command 
*ICONSPRITES, while the two sprites from the file 
‘Sprites’ are loaded into a user sprite area set up by 
our program. This is to ensure that our specific 
sprites don't interface with any having the same 
name, but belonging to other applications. 


IRUNIMAGE 

The final file to create in the application 
directory is !Runimage. This is the actual 
application, and is a sizeable Basic program. The 
first part of this is given in listing 4, which should 
be entered and saved in the application directory 
(noting the uneven line numbering). At this stage, 
you can now enter the Desktop and open the disc 
containing the Notepad. You should see the 
application complete with icon in the filer window, 
and double clicking on this should cause it to 
install itself on the iconbar. Double clicking on the 
iconbar icon will open the Notepad window, which 
at present will be blank except for an arrow in 
each top corner. Pressing the menu button over 
the icon will bring up a quit option. Selecting this 
will remove the Notepad. 


Next month we will add the text handling 
routines to the program, and start to explain how 
it actually works. 


Listing 1 

| !Boot file for RISC User Note Pad 

| by David Spencer 

| Set up file type data 

Set File$Type FEE Note Pad 

Set Alias$@RunType FEE Run <Obey$Dir>.!Run 
&%*0 

| (%% to ensure substitution takes place 
| when file is run, and not when command 
| is obeyed.) 

| Load wimp's sprites 

IconSprites <Obey$Dir>.!Sprites 


Listing 2 

| !Run file for RISC User Note Pad 

| by David Spencer 

| First bit as for !Boot 

Set File$Type FEE Note Pad 

Set Alias$@RunType FEE Run <Obey$Dir>.!Run 
$3*0 

IconSprites <Obey$Dir>.!Sprites 

| Find our path 

Set NotePad$Dir <Obey$Dir> 
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Check memory allocation 

WimpSlot -min 32K -max 32K 

Start program 

Run <NotePad$Dir>.!RunImage %*0 

(Just one %, so parameters are 
substiuted before !RunImage is run. 
'Run' at start is necessary to 
prevent filing system name being 
treated as a temporary filing system 
for the duration of the command.) 


Listing 3 

10 REM >SprGen 

20 REPEAT READ files 

30 IF file$<>"*" THEN 

40 X3=OPENOUT file$ 

50 READ len, check:sum=0 

60 REPEAT READ data$ 

70 REPEAT 

80 byte=EVAL("&"+LEFTS (data$,2)) 

90 sum+=byte:BPUT #X%, byte 
100 len-=1:data$=MIDS$ (data$, 3) 

110 UNTILdataS$="" 

120 UNTILlen=0 

130 CLOSE #x$ 

140 OSCLI "SETTYPE "+file$+" Sprite” 

150 IF sum<>check THEN PRINT "Data error 

in ";file$ 

160 ENDIF 

170 UNTILfileS="*" 

180 END 

190 : 

200 DATA !Sprites, 780, 40798 

210 DATA 02000000100000001003000080010000 
220 DATA 216E6F74657061640000000004000000 
230 DATA 1000000000000000070000002c000000 
240 DATA 2C0000000C0000001177117711771177 
250 DATA 11771177117711771100000011771177 
260 DATA 11771177117711771177117711000000 
270 DATA T7I777ITTTITTITTTTTT ITI II TI 7779797 
280 DATA 77000000770000000000000000000000 
290 DATA 00000000770000007700BB000B00B00B 
300 DATA OOBOBBBBOOBBBBOB770000007700BB00 
310 DATA OBBOOBB00B00B000000B000077000000 
320 DATA 77000BOBOBBOOBBO0BOOB00000BBBB00 
330 DATA 7700000077000BBO0BBO0BBO0B00B000 
340 DATA 000B00007700000077000BB00B00B00B 
350 DATA 0000B00000BBBB0B7700000077000000 
360 DATA 00000000000000000000000077000000 
370 DATA 77000000880800000800808800000000 
380 DATA 77000000770000000880008080008000 
390 DATA 08000070770000007700000088080088 
400 DATA 88088000080000277700000077000000 
410 DATA 08000008000880880000702277000000 
420 DATA 77777777777777777777777777772722 
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430 DATA 77000000772222222222222222222222 
440 DATA 22222222770000007777777777777777 
450 DATA 77777777777777777700000080010000 
460 DATA 66696C655F6665650000000004000000 
4710 DATA 1000000000000000070000002c000000 
480 DATA 2C0000000C0000001177117711771177 
490 DATA 11771177117711771100000011771177 
$00 DATA 11771177117711771177117711000000 
510 DATA 77777777777777777777777777779777 
520 DATA 77000000770000000000000000000000 
530 DATA 00000000770000007700DDDODDODDDDD 
540 DATA ODODODDDDDNDN0007700000077000000 
550 DATA 00000000000000000000000077000000 
560 DATA 77000DDDDDDOODDOODDDODDODDDHODON 
570 DATA 77000000770000000000000000000000 
580 DATA 00000000770000007700DDDD0DD0DDND 
590 DATA DDDDODDDODNDN0007700000077000000 
600 DATA 00000000000000000000000077000000 
610 DATA 7700DDODOODDDHDDDDDDODDODDDDDON 
620 DATA 77000000770000000000000000000000 
630 DATA 00000070770000007700DDDDDDOODODD 
640 DATA ODOODDDDODN00D277700000077000000 
650 DATA 00000000000000000000702277000000 
660 DATA 77777777777777777777777777772722 
670 DATA 77000000772222222222222222222222 
680 DATA 22222222770000007777777777777777 
690 DATA 777777777777777777000000 

7100 DATA Sprites, 228, 9963 

710 DATA 0200000010000000E80000006C000000 
720 DATA 6C6566746172726F7700000001000000 
730 DATA 07000000000000001F0000002Cc000000 
740 DATA 2C0000000C0000000070770000000000 
750 DATA 00777700000000007077777777777777 
760 DATA 77777777777777777077777777777777 
770 DATA 00777700000000000070770000000000 
780 DATA 00000000000000006C00000072696768 
790 DATA 746172726F7700000100000007000000 
800 DATA 000000001F0000002c0000002Cc000000 
810 DATA 0C000000000000000077070000000000 
820 DATA 00777700777777777777770777777777 
830 DATA 77777777777777777777770700000000 
840 DATA 00777700000000000077070000000000 
850 DATA 00000000 

860 DATA * 


Listing 4 
10 REM >$. !NotePad. 'RunImage 
20 REM Program Note Pad Utility 
30 REM Version A 1.0 
40 REM Author David Spencer 
50 REM RISC User April 1989 
60 REM Program Subject to Copyright 
70: 
140 maxpage=7:DIM block 200, mt 100, s 
t 256, data (600*(maxpage+1)), menu 150, 
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fi 100, pno 20 
150 $mt="<Untitled>":$st="Save as:" 
170 S$block="TASK":SYS “Wimp Initialise 
",200, !block,"Note Pad" TO ,task 
180 ON ERROR PROCerror 
210 St=OPENIN "<NotePad$Dir>.Sprites": 
TS=EXT#S%+16:CLOSE #S% 
220 DIM sp TS; !sp=T%:sp!4=0 
230 sp!8=16:sp!12<16 
240 SYS "OS SpriteOp", 610A, sp, “<NotePa 
d$Dir>.Sprites” 
250 X=RND (624) -1: Y=RND (480) -1 
260 main=FNcreate (X,Y, 656,544, &FF00000 
2,0,656,544,3,mt) 
280 sicon=FNspriteicon(-1,0,0, 68, 68,&3 
102,1,"!notepad") 
290 left=FNspriteicon (main, 8,-36, 40,-4 
,&3102,sp,"leftarrow") 
300 right=FNspriteicon (main, 616,-36, 64 
8,-4,43102, sp, "rightarrow") 
350 quit=FALSE:tx=0:ty=0 
360 open=FALSE 
370 REPEAT 
380 SYS “Wimp Poll",1,block TO reason 
390 CASE reason OF 
400 WHEN 1:PROCredraw(!block) 
410 WHEN 2:SYS "Wimp OpenWindow",,bloc 
k 
420 WHEN 3:PROCclose(!block) 
430 WHEN 6:PROCbuttons (block) 
460 WHEN 9:PROCmenuselect (block) 
470 WHEN 17,18:PROCreceive (block) 
480 ENDCASE 
490 UNTIL quit 
500 SYS “"Wimp_CloseDown" 
510 END 
520 : 
530 DEF PROCreceive (b) 
540 CASE b!i6 OF 
550 WHEN 0:quit=TRUE 
560 WHEN 2:PROCdatasave (b) 
570 WHEN 3,5:IF b!12=0 THEN PROCdatalo 
ad(b) 
580 ENDCASE 
§90 ENDPROC 
600 : 
610 DEF FNcreate(vx,vy,w,h, flags,beol, 
x, y,waf,title) 
620 $block=STRINGS$ (88, CHRS0) 
630 !block=vx:block! 4=vy 
640 block! 8=vx+w: block !12=vy+h 
650 block!24=-1:block!28=flags 
660 block?32=7 :block?33=2 
670 block?34=7 :block?35=beol 
680 block?36=3:block?37=1 
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Dabhand User News 


Archimedes Basic Compiler Version 2 - Archimedes Operating System Guide 
Special Offers on Archimedes PC Emulator and ANSI C 


ABC Version 2 


Don't live on promises, buy the only 
true BASIC V Compiler currently avail- 
able, and now in its second release! 
But don'ttake our word here's what the 
reviewers said: 


“...Excellent Dabs Press product. Buy 
it!" RISC User Dec.88 


“ABCis avitalpartof any programmer's 
toolbox, it puts compilers on other 
systems to shame. Unquestionably one 
of the most impressive pieces of soft- 
ware | have yet seen running on the 
Archimedes.” A&B Dec 1988 


"..1 can tell you now, | am very im- 
pressed. This is a superb package.” 
Archive Dec 1988 


The above quotes were referring to 
Version 1 of ABC — ABC Version 2 is 
even better! Version 2 allows use of 
double and extended precision float- 
ing point, multiple exits from proce- 
dures andfunctions, RETURN parame- 
ter passing, new compiler directives 
and very much more. 


As all reviewers have found, ABC 
makes writing machine code programs 
and relocatable modules easy. Pro- 
grams can be written using the full 
range of BASIC V's error messages 
and report's, and once fully working, 
run through ABC which transforms 
them into machine code, ready for 
immediate action. 


Demo Disc: We have produced ademo 
disc of ABC which still supports over 
100 commands. It costs just £2 and 
this is refundable on any subse- 
quentpurchase. A full specification 
sheet is also available on request. 


£99.95 


Free upgrades! 


PRESS 


Archimedes OS Book 
Hotoff the presses, thislatest Dabhand 
Guide is essential reading for every 
user of the Operating System includ- 
ing Arthur and RISC OS. 


Its 320 pages are packed with vital in- 
formation and covers topics such as 
VIDC, MEMC, IOC, Sound, SWis, 
Vectors, Filing System and very much 
more. Price is just £14.95 or £21.95 
with programs dise and manual. 


Archimedes Assembly 
Language 

386 pages devoted to programming 
the Archimedes in machine code. At 
£14.95 it is the only book which deals 
specifically with assembler on the 
Archimedes. Book and programs disc 
ordered together — £21.95. 


Archimedes Games! 
Arcendium: Board Game Fun 
Backgammon, Draughts, Reversi and 
Quadline — four games for the price of 
one! Sure to get the whole family using 
the Archimedes. Just £14.95. 
Alerion: Archimedes Arcade Action! 
The highly acclaimed all-action shoot- 
em-up for the Archimedes. 256 colour 
mode graphics, with digitised speech. 
Impossible to finish! Superb fun! 
"..the gameplay makes this game a 
winner...a first rate game...” A&B 
Computing. Price £14.95. 


C: A Dabhand Guide 

PCW said: “! only wish this book had 
been available when! was leaming C.” 
it you want to learn ANSI C then this 
512 page volume is the way todoil. At 
£14.95 it represents quite incredible 
value. Book and programs disc £21.95. 


Archimedes PC 


Emulator Shareware 

Five discs full of PC software tested 
with the emulator to ensure com- 
patibility. The collection inciudes 
software you would normally expect 
fo pay a fortune for and includes a 
wordprocessor, spreadsheet, 
games, flowchart designer, printer 
utilities, and more. £34.95 


SPECIAL OFFERS! 
PC Emulator and 
FREE Shareware 


Purchase the Archimedes PC 
Emulator from us and we'll give you 
our Shareware pack— detailed above 
and worth £34.95 — absolutely free 
of charge. Price just £113.85 inc. 


ANSI C and FREE 
Dabhand Guide to C 


The best combination! Purchase 
Acornsofts ANSI C and we'll throw 
in our top-selling Dabhand Guide to 
C ~ 512 pages and worth £14.95. 
Price just £113.85 inc VAT & p&p 


On the Lookout 

Dabs Press are always on the look- 
out for authors who feel that they 
have what it takes to write either 
software or Dabhand Guides. If you 
have a useful idea then we can 
make it reality. If you don't have the 
idea but do have what it takes then 
we still want to hear from you. Our 
experience is second to none — if 
you want to be tops get in touch. 


FREE on Request 


Bumper Catalogue! 


5 Victoria Lane (RUM), Whitefield, Manchester M25 GAL 


Tel: 061-766 8423 BT Gold: 72:MAG11596 Prestel: 8342876210 


Prices include VAT and P&P (UK/BFPO/Cl). ACCESS/VISA accepted by post/phone/Mailbox/ 
in person. Cheques and POs to address above. Dabs Press products available from all good 
dealers. Add £2.50 (£12 air) if outside UK. Official orders welcome. 


690 block?38=12 

700 block! 44=-y:block! 48=x 

710 block!56=&13D:block! 60=waf<<12 

720 block!72=title:block!76=-1 

730 block! 80=LENStitle 

740 SYS "Wimp CreateWindow",,block TO 
handle 
=handle 


DEF PROCredraw (handle) 

IF handle=main THEN 

!block=handle 

SYS "Wimp RedrawWindow", ,block TO 


WHILE more 
SYS "Wimp GetRectangle",,block TO 


ENDWHILE 
ENDIF 
ENDPROC 


DEF PROCbuttons (b) 

IF b!8 AND 2 THEN 

PROCmenu (b) 

ELSE 

CASE b!12 OF 

WHEN -2:REM Iconbar 

IF (b!16=sicon) AND NOTopen THEN 
'block=main 

SYS "Wimp GetWindowState",,block 
SYS "Wimp OpenWindow", , block 
open=TRUE 

ENDIF 

ENDCASE 

ENDIF 

ENDPROC 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1460 : 
1470 DEF FNspriteicon (window, x0,y0,x1l,y 
1,flags,sptr,sname$) 


DEF PROCclose (handle) 

IF handle=main THEN open=FALSE 
!'block=handle 

SYS "Wimp CloseWindow",,block 
ENDPROC 


1480 DIM block!24 LENsname$+1:block!28= 
sptr 

1490 block! 32=LENsname$+1:$block!24=sna 
me$ 

1500 =FNiconb1k (window, x0,y0,x1,y1, flag 
Ss) 

1510 : 

1570 DEF FNiconblk (window, x0, y0,xl,yl,f 
lags) 

1580 !block=window 
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1590 
1600 
1610 
1620 
on 
1630 
1640 
1650 
1660 
1670 
uit") 
1680 
4,136 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
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block! 4=x0:block! 8=y0 
block!12=x1:block!16=y1 
block!20=flags 

SYS "Wimp CreateIcon",,block TO ic 


=icon 


DEF PROCmenu (b) 
CASE b!12 OF 
WHEN -2:PROCdrawmenu(1,"Note Pad,Q 


SYS "Wimp CreateMenu",,menu+4, !b-6 


ENDCASE 
ENDPROC 


DEF PROCdrawmenu (handle, menu$) 
!menu=handle:menu?16=7 

menu? 17=2 :menu?18=7 :menu?19=0 
menu! 20=156:menu!24=40 

menu! 28=0:ptr=menut+32 

$ (menu+4)=LEFTS (menu$, INSTR (menuS, 


wy) -1) 


1880 
1890 
1900 
1) 
1910 
1920 
1930 
1940 


menu$=menu$+"," 
WHILE menu$<>"" 
menu$=MID$ (menu$, INSTR(menuS,",")+ 


IF menu$<>"" THEN 

'ptr=0:ptr!4=-1 

ptr! 8=67000021 
$(ptr+12)=LEFTS (menu$, INSTR (menu$, 


Ped) 


1950 
1960 
1970 
1980 
1990 


ptrt=24 

ENDIF 

ENDWHILE 
ptr!-24=ptr!-24 OR «80 
ENDPROC 


2000 : 


2010 
2020 
2030 
2040 
2050 
2060 
2140 
2150 


DEF PROCmenuselect (b) 
CASE !menu OF 

WHEN 1 

CASE !b OF 

WHEN 0:quit=TRUE 
ENDCASE 

ENDCASE 

ENDPROC 


2160 : 


2170 
2180 
2190 
2200 


DEF PROCerror 

SYS "Wimp DragBox",,-1 

'block=ERR 

$(block+4)=REPORT$+" (Internal err 


or code "+STRSERL+") "+CHRSO 


2210 


SYS "Wimp ReportError",block,1,"No 


te Pad" 


2220 


GOTO 370 


ARCHIMEDES SOFTWARE 
(NOWRISC OS compatible) 


SYSTEM DELTAPLUS (v2) £79.95 


This Database Management System is the ultimate 
in simplicity and flexibility. Up to 2 billion records. 
Multiple files open at any time. Multi-tasking 
allowing one file to be edited whilst searching 
another. Search by simple selection from 

within windows. Comprehensive maths, 

searches and sorts. Mailing labels, 

reports, card copier. 


ATELIER £99.95 


(To be released soon). 

Professional quality art package. Functions 

include anti-alias squashing, rotation 

of areas into any quadrangle, and 

sprite and brush patterning. Further 

features allow TV-style 

techniques to even wrap items : 

around 3D surfaces. 5 : MAILSHOT £39.95 

(Multi-tasking if using ; Versatile utility to 

RISC OS.) ‘ Z| produce mail-merged 
Wi, letters and labels across a 


sheet. (This is an add-on 
REPORTER £39.95 utility to the System Delta 
Fully relational user defined Plus database.) 


reporting package. Allows 
sub- totals and sub-sub- 


totals. Contains more SIGMASHEET £69.95 


facilities than 

dBASE Ill report 5 oe 9 spreadsheet. 

writer! (This is an ; efinable colours, spacing, 

add-on utility to widths, formats, etc. Over 30 maths/ 
stats functions. Vertical/horizontal 


pasa acyl or automatic calculation modes. 


database.) 


GAMMAPLOT £69.95 


Extensive presentation graphics/charts 

Bae with art package. Multiple charts/graphs 
inclusive on screen anywhere. Pens, shapes, patterns, 
of VAT. fonts, block options, zoom, slide show facility. 
Imports pictures/logos. Merges with Wordprocessors. 


eS BASS I NER WA Access & 


69 SIDWELL STREET, EXETER. EX4 6PH  aesaehed 
Tel: (0392) 437756 Fax: (0392) 424762 


Te. ACORN'S RAY TRACER 


Roger Wilson, designer of the ARM chip, 
presents the program used to create the famous molecule demo. 


This program requires RISC OS. 


Almost everybody must have seen the 
rotating molecule demonstration produced by 
Acorn. If not, it was included in two parts on the 
RISC User discs for Volume 1 Issues 5 and 6. 
While very impressive, this demo only plotted a 
set of frames previously created using another 
program. This used a technique called Ray 
Tracing to work out the appearance of the 
image at any instant, and it is this basic 
program that is given here. In fact, the program 
is fairly general, and the version here produces 
a series of frames which can subsequently be 
animated to produce a rotating letter ‘A’ made 
up of coloured spheres. One frame from the 
sequence is, actually, one of the sample sprites 
supplied with RISC OS. 


The first frame of the sequence 


THE PROGRAM 

The program from listing 1 should be typed 
in and saved before running it. The sprites 
generated as the program runs are particularly 
memory hungry, and you might need to perform 
some reconfiguring to increase application 
workspace before the program will run. The 
program will not run on a 305. 


When the program is run, you will be 
prompted for a start frame, which should be a 
number between 0 and 129 (usually 0). The 
program will then proceed to calculate each 
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frame, drawing it as it goes. Before each frame 
is drawn, a rough view of its shape is plotted in 
grey. This is the image projected forward onto 
the two dimensional screen. At the top of the 
screen you will see the frame number, the time 
taken on this frame, and the estimated time to 
complete the frame. The time to completion will 
initially rise, and then steady off. This is 
because it is calculated from the amount so far 
done, and the time taken. However, each pixel 
in the frame does not take exactly the same 
time to be traced. Once frame 129 has been 
calculated, the entire sprite file (about 550K 
long) is saved with the name 'RaySprites'. 


The entire 130 frames take several hours to 
draw. If you press Escape, the program saves 
the current position in a file called '‘StopData’, 
and also the current sprites in the file 
‘RaySprites’. If when the program is re-run, you 
specify a negative start frame, the stop position 
is reloaded and the process continues. 


Once the program has run, you will have a 
130 frame sequence on disc. This is in the form 
of a single sprite file containing sprites named 
000, 001, 002 ... 129. To animate the 
sequence, the program from listing 2 can be 
used. Next month we will feature a program 
that displays the animation sequence in a multi- 
tasking window, automatically rescaling it to the 
size of the window. 


HOW IT WORKS 

The explanation which follows concentrates 
on the principles involved, rather than the 
detailed operation of this long and complex 
program. If you want to find out more, an 
excellent book on this, and all aspects of 
computer graphics, is: Procedural Elements 
for Computer Graphics by David F. Rogers 
published by McGraw Hill in the International 
student series. 


Ray tracing is very much a brute-force 
method of rendering an image (rendering is the 
process of making a conceptual object appear 
solid). Ray tracing works by considering the 
plight of every ray emitted from a light source, 
and this is done by taking each ray, and 
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reflecting it off the object by following the laws 
of physics and optics. When a ray hits the 
screen, the appearance of the particular pixel it 
hits can be determined. In practice, this proves 
to be very time-consuming, because the 
majority of rays from the light source will not 
pass through the screen. Therefore, in practice 
ray tracing is performed in reverse, by starting 
with each pixel on the visible screen and 
tracing it backwards. Each ray is reflected off 
surfaces of the object until it reaches the light 
source. This automatically caters for shadowing 
and reflections, but not refraction. 


The way in which a ray is reflected off an 
object is determined by a number of factors, 
and the program uses a complex expression to 
model this. Basically, the ray is reflected about 
the normal to the surface at the point of 
intersection, with an intensity determined by the 
reflection model and the cosine of the solid 
angle between the reflected ray and the vector 
from the surface to the light source. Again, the 
recommended book explains this in great 
detail. To add more realism, the specular 
reflection model, as this function is called, 
allows for ambient light, that is, overall light that 
comes from no particular direction. However, 
ray tracing cannot in any way cope with the 
reflection of ambient light - an effect which 
occurs in real life. 


MODIFYING THE PROGRAM 

Despite its complexity, it is relatively easy to 
modify the program to handle any image made 
up of a series of spheres. The procedures 
which must be altered are PROCinit and 
PROCSetSpheres. 


PROCinit sets up a number of parameters 
relating to the overall sequence. The three 
elements of the array /s7 contain the x, y and z 
components of the position of the light source. 
The variable maxframe should be set to the 
total number of frames minus one. The values 
of width and height determine the size of area 
traced (in actual numbers of pixels), while 
increasing the value of margin limits the 
viewing area, with an obvious speed increase. 
VD is the distance of the viewer from the 
object. NoSpheres is the number of spheres 
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that make up the object, and finally, res is the 
resolution to which the object is traced. A value 
greater than one gives a faster trace, but with a 
loss of definition. You can experiment to see 
the exact effect of these values. 


PROCSetSpheres is the routine that actually 
draws the object in 3-space. This routine is 
called each time a frame is about to be 
rendered, and is passed the current frame 
number. The routine must then create the object 
by setting up the contents of twelve arrays, 
described below. The change of object from 
frame to frame must also be catered for in this 
routine. If you look at the program, you will see 
that it starts by drawing the base image into the 
arrays, and then applying transformations to it 
according to the frame number. 


Each sphere is represented by a set of 
corresponding elements in the twelve arrays, 
the array subscript being the sphere number. 
The arrays are: 


x() The position of the centre of the 
y() sphere in 3-space 


The square of the radius of 
the sphere 

) The red, green and blue 
Ig() components of the colour of the 
sphere. These are real values 
between 0 and 1. 


ka( ) Ambient reflectance 

kn() Normal illumination 
ksp( ) Coefficients of specular 

kr() reflection 

ks( ) 


These last five arrays are the parameters 
used for the illumination and specular reflection 
models. Their meanings are fully explained in 
the recommended book, but | suggest that 
unless you understand them fully, you stick to 
the values used in the program. This will give 
the spheres an appearance not dissimilar to 
that of vinyl silk paint. If you follow the 
SetSpheres procedure in the program, the 
above explanation should become clearer. 


There are many other ways in which you 
might like to try and modify the program. For 
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example, you could improve the illumination 
model, or allow for more than one light source, 
or even allow for the effects of refraction which 
would make transparent objects possible. If you 
really want a challenge then you could make 
the program cater for non-spherical objects, but 
be warned, this is not a trivial task! 


A frame from the middle ‘spin' phase 


This month's magazine disc contains the two 
programs given here, and also the version of 
the program used to produce the famous 
molecule. 


Listing 1 

10 REM > Trace 
20 REM Program 
30 REM Version A 1.00 

40 REM Author Roger Wilson 

50 REM RISC User April 1989 

60 REM Program Subject to Copyright 
70: 

80 MODE 13:OFF:ORIGIN 512,320 

90 DIM 1s1(2),1s2(2),1(2),01(2),p(2), 

np(2),q(2),n(2),s(2),colour (2) 

100 PROCinit 
110 DIM SA% SASIZE%:SA%!0=SASIZE% 
120 SA%! 4=0:SA%!8=16:SAS!12=16 
130 resxt=4*res: resYt=4*res 
140 DIM sz(NoSpheres-1) 
150 DIM lr (NoSpheres-1) 
160 DIM lg(NoSpheres-1) 
170 DIM 1b(NoSpheres-1) 
180 DIM ka(NoSpheres-1) 


Ray Tracer 
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190 DIM kn(NoSpheres-1) 
200 DIM ks(NoSpheres-1) 
210 DIM ksp(NoSpheres-1) 
220 DIM kr (NoSpheres-1) 
230 DIM x(NoSpheres-1) 
240 DIM y (NoSpheres-1) 
250 DIM z(NoSpheres-1) 


270 DIM qx (NoSpheres-1) , q¥ (NoSpheres-1 
),qZ (NoSpheres-1) 

280 DIM t(NoSpheres-1), b{NoSpheres-1 
), ¢c(NoSpheres-1) 

290 SO%=&2E:SO_New=6109:SO_Load=&10A 

300 SO_Save=610C:SO_Get=«110 

310 INPUT"Start Frame ";SF 

320 IFSF<0 THEN 

330 A&%=OPENIN"StopData" 

340 INPUT#A%, SF 

350 CLOSE#A% 

360 PROCTMDLOAD ("RaySprites”) 

370 ENDIF 

380 PROCASS 

390 ToSprites=FALSE 

400 ON ERROR PROCCAPTURE 

410 linetime%=0 

420 FOR frame=SF TO maxframe 

430 PROCHDR 

440 Start=TIME 

450 PROCSetSpheres 

460 PROCProjectScene 

470 PROCDrawScene: PRINTTIME-Start 

480 SpriteName$=RIGHTS ("000"+STR$frame 
73) 

490 SYS "OS SpriteOp",SO Get,SA%,Sprit 
eName$,0,0,0,252, 252 

500 NEXT 

510 PROCTMDSAVE ("RaySprites") 

520 END 

530) 5 

540 DEF PROCCAPTURE 

550 ON ERROR OFF 

560 IFERR<>17 REPORT:PRINT" at line "; 
ERL: END 

570 MODEO 

580 A%=OPENOUT"StopData" 

590 PRINT#A%, frame 

600 CLOSE#A% 

610 PROCTMDSAVE ("RaySprites") 

620 END 

630 : 

640 DEF PROCDrawScene 

650 FOR Y%=BM TO TM STEP resY% 
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660 PRINT TAB(cx%,cy%) ;Y& 

670 IF linetime% THEN PRINT"Estimated 
time to completion="; ( (TM-Y%) DIVresY%+1) 
*linetime%DIV100" sec. " 

680 PRINT"Doing this frame for "; (TIME 
-Start)/100" sec. " 

690 T1$=TIME 

700 FOR X%=LM TO RM STEP resx% 

710 IF POINT(X%,Y%) THEN 

720 PROCget lp (X%, Y%) 

730 PROCcheck: IFH&THEN 

740 colour (0)=2/16: colour (1)=8/16 

750 colour (2)=8/16 

760 ELSE 

770 k=0: colour ()=0:ik=1 

780 REPEAT 

790 PROCreflect:k+t=1 

800 PROCcheck 

810 UNTIL H% OR k>40 

820 ENDIF 

830 PROCplot 

840 ELSE 

850 PROCplot2 

860 ENDIF 

870 NEXT 

880 linetime%=(linetime%+ (TIME-T1$%) ) /2 

890 NEXT 

$00 ENDPROC 

910 : 

920 DEF PROCget1p (X,Y) 

930 REM move pixel on view screen to i 
Mage space 

940 1(0)=X-XC:1(1)=Y-YC:1(2)=VD 

950 p(0)=1(0) :p(1)=1(1):p(2)=0 

960 1()=1() /MOD1() 

970 ENDPROC 

980 : 

990 DEF PROCSetSpheres 

1000 REM initialise image space 

1010 RESTORE 

1020 IFframe<40 an=frame/40*PI:tilt1=0 

ELSE an=PI 

1030 IFframe>39 IF frame<90 tilti=(fram 
e-40) /50*PI 

1040 IFframe>89 tiltl=P1I:tilt2=(frame-9 
0)/40*PI ELSE tilt2=0 

1050 factor=34 : REM approx factor to c 
alculate atomic radii 

1060 N=0:C=1: RESTORE 

1070 FORY=6TOOSTEP-1 

1080 X=0:READAS ; FORJ%=1TOLENAS 

1090 IFMID$(A$,J%,1)="1" THEN 
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1100 x (N)=X*40-120:y (N) =¥*40-120:2z(N)=0 
1110 CASE C OF 

1120 WHEN 1:lr(N)=1:1lg(N)=.25:1b(N)=.25 
1130 WHEN 2:1r(N)=.25:1g(N)=1:1b(N)=.25 
1140 WHEN 3:1r(N)=1:lg(N)=1:1b(N)=.25 
1150 WHEN 4:1r(N)=.25:1g(N)=.25:1b(N)=1 
1160 WHEN 5:1r(N)=1:lg(N)=.25:1b(N)=1 
1170 WHEN 6:1r(N)=.25:1q(N)=1:1b(N)=1 
1180 WHEN 7:1r(N)=1:1g(N)=1:1b(N)=1 
1190 ENDCASE 

1200 ka(N)=.2:kn(N)=.6:ks(N)=.55:ksp(N) 
=30:kr(N)=1/3 

1210 sz(N)=factor*2 

1220 N+=1:C+=1:IFC>7 C=1 

1230 ENDIF 

1240 X+=1:NEXT 

1250 NEXT 

1260 cosan=COSan:sinan=SINan 

1270 cost2=CoSstilt1:sint2=SINtilt1 

1280 IFframe>39IFframe<90 cost2a=COS (2* 
PI-tilt1):sint2a=SIN(2*PI-tiltl) ELSE co 
st2a=cost2:sint2a=sint2 

1290 cost1=COStilt2:sint1l=SINtilt2 
1300 FORN=0TONoSpheres-1 

1310 tl=x(N)*cosan-z(N) *sinan:REM spin 
1320 t2=x(N)*sinan+z(N) *cosan 

1330 x(N)=ti:z(N)=t2 

1340 tl=y(N)*costl-z(N) *sint1:REM tilt 
1350 t2=y (N) *sint1l+z(N)*costl 

1360 y(N)=t1:z(N)=t2 

1370 IFN AND1 cos2=cost2:sin2=sint2 ELS 
E cos2=cost2a:sin2=sint2a 

1380 tl=y(N)*cos2-x (N)*sin2:REM rotate 
1390 t2=y(N)*sin2+x (N) *cos2 

1400 y(N)=t1:x(N)=t2 

1410 NEXT 

1420 z()+=1000 

1430 ENDPROC 

1440 DATA 0000001 

1450 DATA 0000011 

1460 DATA 0000101 

1470 DATA 0001111 

1480 DATA 0010001 

1490 DATA 0100001 - 

1500 DATA 1000001 

1510 : 

1520 DEF PROCProjectScene 

1530 REM Show gray shadow of scene 

1540 GCOL 0,32+8+2 TINT 0:k=VD 

1550 FORN=0 TO NoSpheres-1 

1560 z=z(N)+VD:CIRCLE FILL k*x(N)/z+XC, 
k*y (N) /z+¥C, k*SQR(sz(N)) /z+4 
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1570 NEXT 

1580 ENDPROC 

1590 : 

1600 DEF PROCplot 

1610 REM plot final coloured pixel 

1620 IFABS (colour (0)-colour (1) )<1/32AND 
ABS (colour (1) -colour (2) )<1/32THEN 

1630 r%=FNB (colour (0)*16) :qt=r%:b%=r%:t 
$=rih 

1640 ELSE 

1650 r%=FNB(colour (0) *16) 

1660 g%=FNB (colour (1) *16) 

1670 b%=FNB (colour (2) *16) 

1680 IFABS (colour (0)-colour(1)}<1/32 r% 
=gt 

1690 IFABS (colour (0) -colour(2))<1/32 r% 
=bt 

1700 IFABS (colour (1)-colour(2))<1/32 b% 
=g% 

1710 th=g%: IFts+1<r% t%=r% 

1720 IFtt+1<b% th=b% 

1730 ENDIF 

1740 GCOL( (r$AND12)>>2) + (gSAND12)+((btA 
ND12)<<2) TINT t%<<6 

1750 IFresX%=1POINTX%, Y$ ELSERECTANGLEF 
ILLX%, Y%, resx%-4, resY%-4 

1760 ENDPROC 

LF7O 

1780 DEF FNB(X) LOCALX%:X%=INTX: IFRND (1 
)<X-X% X$+=1 

1790 IFX%>15X%=15 

1800 =x% 

1810 : 

1820 DEF PROCplot2 

1830 REM plot background colour pixel 
1840 GCOL40 TINT 0 

1850 IFresX3=1POINTX%, Yt ELSERECTANGLEF 
ILLX$%, Y%, resX3-4, resY%-4 

1860 ENDPROC 

1870 : 

1880 DEF PROCcheck 

1890 REM compute intersection of normal 
ised vector 1() from position p() 

1900 REM Returns Ht=TRUE if no hit, els 
e HS=FALSE, L=distance, Mt=sphere number 
1910 H%=TRUE: qx ()=p(0)-x () :q¥ ()=p (1) -y ( 
):qZ ()=p(2)-z() 

1920 b()=1 (0) *qX () st ()=1 (1) *a¥ () sb 0 =b( 
)+t () st ()=1 (2) *qZ (0) sb ()=b() #1) 

1930 ¢()=qX () *qX (1) st ()=aY O *Q¥() sc ec 
)4t () st ()=q2() *qZ() se (QV=cQ +t) 

1940 CALL CODE%,c(),sz(),b(), Ht, L, Mt 
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ACORN'S RAY TRACER 
(he a a ale i ES SEO) EIS Sm eS 


1950 ENDPROC 

1960 : 

1970 REM Code performs: 

1980 FORN?=0TONoSpheres-1: IFt (N%) <0. ONE 
XT: ENDPROC 

1990 t=SQRt (N%) :K=-b (NS) -t:t-=b(N%) : IFK 
<t t=K 

2000 IFt<1E-3NEXT: ENDPROC 

2010 IFHtL=t:Mt=N%:Ht=FALSE ELSEIFt<L L 
=t :Mt=N% 

2020 NEXT: ENDPROC 

2030 : 

2040 DEF PROCreflect 

2050 REM compute new reflected ray. Als 
© compute colour effects. 

2060 s(0)=x (M%) :s(1)=y (M8) :s (2) =z (MB) 
2070 q()=1()*L:np()=p() +q() :n() =np() -s( 
) 

2080 n()=n()/MODn () 

2090 q()=n()*1() sq()=(2*SUMq()) *n() 
2100 01()=1():1()=1s1() :d=L:M1%=M%:s ()= 
1E-4*n() :p()=np() +n() :PROCcheck 

2110 IFHS=TRUE THEN 

2120 s()=n()*1():8()=(2*SUMs())*n() :1() 
=1()-s() :1()=1() /MOD1 () 

2130 s()=n()*1s1():Bl=kn(M1%) *SUMs() : IF 
B1<0 B1=0 

2140 s()=1()*ol() :B2=ks (M1%) *SUMS() *ksp 
(M1%) :IFB2<0 B2=0 

2150 s(0)=1r (M1%) :s(1)=1gq(M1%) +s (2)=1b( 
M1%) 

2160 s()=s()* (ka(M1%)+B1) :s()=s()+B2 
2170 ELSE 

2180 s(0)=1r(M1%) :s (1)=1qg(M1%):s(2)=1b( 
M1%) :s()=s() *ka(M1%) 

2190 ENDIF 

2200 s()=s()*ik 

2210 colour ()=colour ()+s() :ik=ik*kr (M1% 


) 

2220 1()=01()-q() 1 ()=1() /MOD1 () : HS=FAL 
SE:p()=np() 

2230 ENDPROC 

2240 : 

2250 DEF PROCASS 

2260 DIM CODE% 2500 

2270 P%=CODES 

2280 [ OPT 0 

2290 STR R14, [RO):MOV PC,R14 

2300 ] :At=CODE%+20: CALLCODE% 

2310 FISTA=CODE%! 20+22*4:F1LDA=F1STA+4 
2320 FIADD=F1LDA+4:F1XSUB=F1ADD+4 


Continued on page 47 
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ANNOUNCING A MAJOR NEW SOFTWARE RELEASE 


‘Premier 


Circle Software are proud to announce a major new text processor for the Archimedes 
featuring a major advance in capability. Premier is the first program of it's kind to include 
what we have called - 


DYNAMIC TEXT 


This new concept allows the inclusion of items within any document, whose textual content 
is not fixed, but may change after the item has been inserted. Such DYNAMIC TEXT items 
may show today’s date or time, the current value of VAT, or a name and address. The 
actual text displayed may be defined at the keyboard, or in a separate text file. In fact 
different text files may define these DYNAMIC TEXT items differently, to produce 
statements and invoices, financial reports, or personalised mail shots. 


This is no pipe dream. Premier's powerful command language includes full maths functions, 
repeat loops and 'if - then’ constructs, all of which may be included in the definition of 

a DYNAMIC TEXT item, allowing full spread-sheet type facilities anywhere on the page, 

not just in neat rows and columns. But Premier does not stop there. 


The ability to read and execute commands from text files allows any text processing to be 
carried out just by typing a ‘star’ command. Further, the ability to define ‘macro’ commands, 
plus the ability to define the action of ANY key, allows complete ‘applications’ to be built, 
including customised spreadsheets, and simple data bases. A command file defining a 

full featured word processor, and a matching key-strip, is included with Premier. 


This word processor alone is a justifiable reason for the purchase of Premier. It offers four 
way scrolling windows, is able to cut and paste text between any number of files, features 
forward and backward searches, search pattern matching, headers and footers employing 
DYNAMIC TEXT, and other features too numerous to list here. The command file defining 
all this may be edited, to tailor the features to your own requirements. 


Premier will be enhanced further to include more features and applications. As a RISC 
USER reader you can receive all updates free during 1989 by ordering NOW at a special 
price of just 50 pounds, or see DYNAMIC TEXT in action and try our word processor on a 
demo disc avialable for just 5 pounds, refundable on a full order. 


Send NOW for full details of Premier, 
a refundable demo disc for 5 pounds, Ki [ f 
or a full version of Premier, complete GC HC é S O tware 
with manual, key strips, and a no quibble 
dbeei 9 33, Restrop View, 


guarantee, for just 50 pounds. 
You have nothing to loose! Purton, Swindon, 


Wilts. SN5 9DG 


=<, THE RISC OS HOURGLASS 


David Spencer looks at a useful feature provided by RISC OS. 


The RISC OS Hourglass module is a short 
module that can be used to pop-up an egg 
timer on the screen as a mouse pointer. Its 
main use is to inform the user that the machine 
is tied up at the present time, and will not 
respond to keyboard input. The hourglass often 
appears when a directory is first opened using 
the Desktop. 


Controlling the hourglass is simplicity itself. 
All controls are in the form of SWI commands, 
which are issued from Basic using the SYS 
statement. The two most important commands 
are: 

SYS "Hourglass On” 

SYS "Hourglass Off" 
As their names suggest, these are used to turn 
the hourglass on and off. The first command 
should be placed before any piece of code that 
takes a relatively long time to execute, and the 
second command afterwards, for example: 

10 SYS "Hourglass On" 

20 PRINT "Start" — 

30 TIME=0 

40 REPEAT UNTIL TIME>1000 

50 PRINT "End" 

60 SYS "Hourglass Off” 
This turns the hourglass on, prints ‘Start’, waits 
ten seconds, prints 'End' and finally turns the 
hourglass off. Incidentally, using the hourglass 
corrupts the definitions of pointers 3 and 4, 
although this will not normally be a problem. 


and 


If you try the above program, you might 
notice a small delay between the ‘Start’ being 
printed, and the hourglass appearing. This isn't 
at all accidental - instead, when you turn the 
hourglass on, it doesn't actually appear for 1/3 
second, although the SYS command returns to 
the program immediately. This is so that the 
hourglass is only displayed if the operation 
takes a noticeable time (more than 1/3 second). 
Otherwise, the hourglass is turned off before it 
is displayed, and never actually appears. If the 
delay of 1/3 second is too long or too short, an 
alternative command can be used: 

SYS "Hourglass Start", delay 
This is the same as 'Hourglass_On", but 
instead of using the fixed delay, the delay is 
specified as a parameter (in 100ths of a 
second). To illustrate this, change line 10 of the 
above program to: 

10 SYS "Hourglass Start", 200 
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Hourglass on and off calls are nested. This 
means that if you turn the hourglass on more 
than once (without turning it off), you must turn 
it off the corresponding number of times before 
it is no-longer displayed. This ensures that in 
the situation where one routine that uses the 
hourglass calls another which also uses it, the 
hourglass is displayed until the first routine has 
finished, and isn't accidentally turned off by the 
second. The command: 

SYS "Hourglass Smash" 
can be used to remove the hourglass display 
immediately, regardless of how many times it 
was turned on. This is very useful in error 
handling routines. 


INDICATORS 

As well as the basic hourglass, it is also 
possible to display a percentage figure below 
the 'egg timer’, and two LED displays (blue 
bars) , one above and one below. For 
example, if the hourglass was displayed while 
a word processor reformatted a document, it 
might be helpful to display the percentage of 
the text that has been processed. The call to 
do this is: 

SYS "Hourglass Percentage",percent 
If the value of percent is in the range 0 to 99, 
then the percentage is displayed. Any other 
value turns off the percentage display. To 
continually update the percentage, your 
program must issue this call each time the 
value changes. 


The LEDs are controlled using: 

SYS “Hourglass LEDs", eor,and 
The current state of the LEDs is represented 
by a two-bit number, bit 0 is set if the top 
LED is on, and bit 1 if the bottom LED is on. 
This call takes the current state, ANDs it with 
the parameter and, and Exclusive ORs the 
result with the parameter eor to get the new 
state. This allows you to achieve effects such 
as inverting the state of an LED, or changing 
one while leaving the other alone. The 
simplest way to use this command is to 
ignore the and parameter, and use the first 
parameter (eor) to specify the state of the 
LEDs. For example: 

SYS "Hourglass LEDs", 2 
will turn the bottom LED on, and the top one 
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J rchimedes probucTs FOR THE 1990's 


NEW PRE SHEN TR oS. TORY 


The ultimate in Business Presentation software. Turn your Archimedes into a tool to project combined 
images of Text, Logos, Graphs, Digitised & Video Pictures to illustrate your presentations more Clearly. Many 
special screen features are included such as vertical and smooth scrolling and bouncing. It can be used with 
most makes of RGB projectors or you can use your Archimedes monitor for smaller Presentations 

PRESENTER STORY is available for Business applications now, Education and Media/ Video versions will be 
available soon. RISCOS compatible. 

£799.00 + VAT 


lingenuit 


Specialist Software 


PRES ENTER 


The established presentation package for Archimedes users in schools and businesses alike. Colour 3-D 
Bar-, Line- and Pie- charts and graphs can be made quickly and easily in the Acorn WIMP environment 
These charts and graphs can be printed on FX-compatible and Integrex co/our printers and also on Plotmate 
plotter. Alternatively, they can be ported into other packages, such as 1st Word Plus, Artisan & Graphic 
Writer. RISCOS compatible. 

£24.95 + VAT 


NEW CONTROL PANEL 


Contused about the ‘Configure comands? With Control Panel there is no need to worry. Use Control Panel to 
set the right Archimedes’ configuration for all your application software. You can then Save and Load the 
configuration settings of your choice for use at later dates. Control Panel also includes a utility to build 
configuration tiles into program boot files. Fully wimp-driven with constant real-time help screen. 

£14.95 + VAT 


NEW COLOUR CONVERTER 


Do you want to capture colour images onto your Archimedes screen? The Colour Converter podule running 
with the Watford Digitiser allows full colour images to be captured and saved as screens or sprites. The 
package also includes new Dithering Software which will give you greatly enhanced near-television quality 
pictures, using an effective palette of 256, 000 colours! The Colour Converter 2 Width Podule and Software 
is available now. 

£169.95 + VAT 


NEW A 1|M (Archimedes Image Manager) 

Public Domain Image Processing software from Delft University which will increase the contrast and 
sharpen blurred images that have been digitised. Many varied uses —in education, industry and the home, A 
multisyne monitor is required in order to give the necessary resolution. 


£9.00 + VAT 
eee VISA All Lingenuity products are available direct or from good Acorn dealers. 
os and Educational discounts and site-licences are available. 


ACCESS For further details please contact us on 098 685 477 or write to 
accepted. Lingenuity, PO Box 10, Halesworth, Suffolk IP79 ODX. 
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ART NOUVEAU 


Reviewed by Mike Williams 


A good many art and painting packages 
have appeared for the Archimedes since it was 
launched, not least ProArtisan from Clares 
Micro Supplies, reviewed in Volume 2 Issue 3. 
Readers may well be forgiven for wondering if 
there is room for another (and there are more 
to come), 


Art Nouveau is clearly a quality product; 
even a brief familiarisation with the package will 
readily convince anyone of the amount of 
thought and development which has gone into 
this package. For your £42.50 you get a disc 
and a manual of some 100 pages or so. The 
software works in mode 15 (256 colours), 
though there is an option to load mode 12 
screens and convert them to mode 15. 


Art Nouveau 

Computer Assisted Learning Lid 
Strathclyde Business Centre, 
New Stevenston, 


Strathclyde, Scotiand ML1 4J8. 
Tel. (0698) 733775 
£42.50 inc. 


For this review, Art Nouveau was used on 
an Archimedes 310 with RISC OS installed, 
and no problems were encountered with this 
combination. However, the software cannot be 
run directly from the Desktop, though this may 
well be provided for in production versions, At 
present, Art Nouveau starts by saving the 
current configuration of your machine which is 
then reconfigured. There appears to be no way 
of avoiding this, even if the machine has 
already been put through this process, and | do 
not feel totally happy with this approach. 


Once loaded, Art Nouveau presents a totally 
black screen, apart from a white border. To 
make any use of the software it is essential to 
refer to the manual, so it is fortunate that this is 
well written. It appears to be a fact of life with 
the Archimedes that every software house 
adopts a different strategy for the use of pop-up 
menus and mouse control, and Art Nouveau is 
no exception, though it is logical and probably 
follows Acorn's suggested standards more than 
most. 


RISC User April 1989 


Pressing the menu (middle) button at any 
time displays a menu bar across the top of the 
screen (with eight menu options), and a status 
display at its foot. Release the menu button and 
the menu bar immediately disappears. Even 
after several hours spent using this software, | 
still found this disconcerting. Moving the mouse 
pointer to any option on the menu bar triggers a 
pull-down menu, and many of the menu options 
either link through to further sub-menus, or call 
up a new screen for some major options. The 
menus are very stylish in appearance, and the 
whole system adopts a consistent approach. 


LINE DRAWING 

Two of the main menus provide for the 
drawing of straight or curved lines and shapes, 
with a choice of outline or filled shapes. Straight 
line drawing includes single and continuous 
rubber-band drawing, plus squares, rectangles, 
parallelograms and triangles. User defined 
polygons can be created, and the result 
positioned, scaled and rotated as required. 


\ 
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Art Nouveau 


Curve drawing includes ellipses, circles, 
arcs, segments and sectors, and also a free- 
flowing curve joining two points. This is much 
like the Bezier curves used in some other 
software, but bends in one direction only (‘C' 
not 'S' shaped). In practice it is simple to use, 
and a succession of such curves may be easily 
and smoothly joined together. 
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PENCILS AND BRUSHES 


Freehand drawing uses the pencil option in 
the goodies menu. This can be used in one of 
two ways. In one case it leaves a trail of dots, 
and the extent to which this appears as a 
continuous line depends upon the speed with 
which drawing takes place. The other format 
always creates a continuous line irrespective of 
drawing speed. The mouse can also be locked 
so that lines can be accurately drawn vertically 
and horizontally. 


Painting with a brush 


Line drawing can also use a so-called 
colour cycle, in which the sequence of dots 
forming a line follows a pre-determined 
sequence of colours. Several such 
sequences are supplied on the Art Nouveau 
disc and may be loaded and selected as 
required. Alternatively the user may design 
his own colour cycles, and in turn save these 
to disc. 


You can also select a spray brush, and 
control the shape and size of the ‘droplets’, as 
well as the size of the spray area. It is also 
worth saying here that Art Nouveau provides a 
colour merge option. This mixes the pixels 
within a small square box displayed on screen 
when the action (left-hand) mouse button is 
pressed. This needs to be used with care, as 
the results are not that subtle, and on the whole 
| would rate this less highly than ProArtisan's 
wash facility. 
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ART NOUVEAU 


Quite different to either of the above is a 
brush facility. This 'loads' a brush with a 
rectangular image or pattern with which to 
paint on the screen. The size of a brush is 
not restricted other than by the size of the 
screen itself. A number of brushes are 
supplied as part of the Art Nouveau disc. 
Once a brush is selected, pressing the 
action button will place the brush image on 
the screen. The brush can also be used like 
a spray brush to leave a continuous trail of 
images. 


Once a brush has been selected, its size 
can be halved or doubled, independently in the 
x and y directions, or stretched (and that 
means reduced as well) to any size required. 
However, the resulting image seems often 
coarser and less attractive than one generated 
at the required size initially. 


Distorting brush images 


Some beautiful effects can also be achieved 
by applying any of several distortions to a 
brush image, and there is an option to disort a 
brush onto any enclosed area. Any of the 
colours in a brush can also be made 
transparent so that the existing background 
shows through in these areas. This is very 
useful for creating a brush which appears not to 
have a rectangular shape but that of some 
intricate object. 


Finally, the user can create and save his 
own design of brush. This can be done by 
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picking up any rectangular area of the current 
screen display, or (in order to preserve the 
current screen image), by switching to a 
separate scratch screen which can be used 
independently of the main drawing area. Any 
brush generated can then be saved to disc for 
future use. 


Using the pixel editor 


PIXELS, FONTS AND PATTERNS 

Art Nouveau is an entirely pixel oriented 
package, and nowhere does this show more 
clearly than in the Pixe/ Editor. This is an 
excellent example of its kind, allowing the 
image to be enlarged 2, 4, 8, or 16 times for 
detailed editing of pixels. 


Art Nouveau also allows text to be 
incorporated on a screen design, using the 
stndard Acorn font or an alternative supplied with 
Art Nouveau. There is also a font editor allowing 
the user to design and save his own fonts. 


Various patterns are supplied both as default 
and with others on disc. Any colour or pattern 
can be selected for the flood-fill operation, and 
the screen can also be cleared to a pattern as 
well as a colour. A pattern editor can be used to 
generate new designs, which can then be saved 
to disc, and it is also possible to select the 
current brush as a pattern. 


HOUSEKEEPING FUNCTIONS 


Disc management seems excellent. The 
disc menu has the expected save and load 
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ART NOUVEAU 


functions, covering screens, brushes, and 
patterns, but will also format and initialise a 
new disc, and caters well for disc changes 
while using Art Nouveau. There is also an 
option to delete files, which can be very handy 
at times. 


Two print options are provided, one for 
Epson FX compatibles with the facility to adjust 
the tonal range, and a colour dump which | tried 
with an Integrex Colourjet 132. The results of 
this seemed very washed out compared with 
the richness of the screen image, and colour 
prints from ProArtisan are better, though | have 
yet to see a reasonably priced colour printer 
which will achieve really good rendering of a 
256 colour mode. 


MANUAL 

| have already referred to this. Nearly 
three-quarters of its contents are tutorial in 
style, and well written in a way which really 
does take you step by step through virtually 
all the facilities available. The remainder 
acts as a reference guide to the menu 
options. The quality of the illustrations was 
poor, but my copy was a draft version only. 
Having ploughed my way right through the 
tutorial section | was left feeling a little 
confused, and not clear about which menu 
provided which facility. If this is so, then it 
may derive more from the design of the 
menu system rather than from any 
inadequacies in the manual itself. Any 
criticsm here can also be taken as a 
compliment as it reflects the very richness of 
the Art Nouveau environment. 


CONCLUSIONS 

As indicated earlier, my copy of Art 
Nouveau was not a final version. However, it 
is certainly impressive, and deserves to sell 
well. It will take anyone some time to get used 
to the menu system, but this is true of many 
packages. Once past that hurdle, Art Nouveau 
will prove a powerful and versatile addition to 
the range of art packages for the Archimedes, 
and is a good first product by a new company, 
and at a highly competitive and attractive 
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BASIC PROGRAM LISTING UTILITY 


To illustrate the use of Basic's token table, 
David Spencer presents a utility to list a program from a file. 


The article elsewhere in this issue on the 
Basic token table shows how a token can be 
converted back into the corresponding keyword. 
This principle is used here to implement a utility 
to list a Basic program from a file, without having 
to first load it into memory. Two ‘versions of the 
utility are given. The first is written in Basic, and 
has the advantage of being easy to follow if you 
wish to investigate how it works. The other 
version is in the form of a machine code utility 
which can be saved in the Library directory of 
your disc and used as required. 


USING THE UTILITY 

Using the Basic version of the utility is 
simplicity itself. Type in the program and save it, 
then run it and enter the file name of the program 
to be listed. The required file will then be listed 
just as if it had been loaded and LIST used. 


To use the machine code version, type it in, 
save it and run it. This will assemble the utility 
and save it using the filename 'BLIST'. The 
command is invoked with: 

*BLIST <file> [P] 

The parameter file is the filename of the Basic 
program to list. By placing a 'P* after the 
filename, for example: 

*BLIST Prog P 
the command will pause until a key is pressed. 
This allows discs to be swapped if the program 
to be listed is on a different disc to the actual 
command. Note however, that in this case the 
filename must specify the drive number, 
otherwise ADFS will not remount the disc. 


10 REM >FLister 
20 REM Program Basic Program List 
30 REM Version A1.0 


40 REM Author David Spencer 

50 REM RISC User April 1989 

60 REM Program Subject to Copyright 
70: 

80 DIM code 100 

90 FOR pass=0 TO 2 STEP 2 

100 P%=code: [OPT pass 
110 STMFD R13!,{R14}:MOV R2,R14 
120 ADR R12,temp:STR Ri, [R12] 
130 ADR R14,back:ADD PC,R2,#&4C 
140 .back STR R1,temp:LDMFD R13!, {PC} 
150 .temp EQUD 0:]NEXT 
160 @%=6505:0N ERROR GOTO 590 

170 INPUT "Enter filename "F$ 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


X%=OPENIN FS 

IF X%=0 ERROR 6D6,"File not found” 
Y%=FNget 

IF Y%<>13 ERROR 0,"Not BASIC" 
REPEAT L%=FNget 

IF L%<>255 THEN 
ln=256*L&+FNget : Yt=FNget 
PRINT ln;" "; 

REPEAT Y%=FNget 

CASE TRUE OF 

WHEN Y%=13 

WHEN Y%=&8D;PROClref 
WHEN Y%>&7F;PROCtoken (Y%) 
OTHERWISE: VDU Y% 

ENDCASE 

UNTIL Y%=13 

PRINT 

ENDIF 

UNTIL L%=255 

CLOSE #X% 

END 


390 : 


400 
410 
420 


DEF FNget 
IF EOF#X% THEN CLOSE#X%:END 
=BGET#X% 


430 ;: 


440 
450 
460 
470 
480 
490 
500 


DEF PROCtoken (A$) 

IF A%>&C5 AND A%<&C9 THEN BS=FNget 
CALL code: addr=!temp 

WHILE ?addr<&é7F 

VDU ?addr:addr+=1 

ENDWHILE 

ENDPROC 


510 : 


520 
530 
540 
550 


DEF PROCLref 

nol=FNget<<2 

no2=FNget EOR (noi AND &C0) 
no2=no2 OR ((FNget EOR ({(nol<<2) A 


ND &CO))<<8) 


560 
570 


PRINT; no2; 
ENDPROC 


5B0 : 


590 
600 


eee eee 


10 
20 
30 
40 
50 
60 


Q%=690A: IF X% THEN CLOSE4#X% 
PRINT REPORTS " at line “;ERL 


RANE RRR AENANAN ee 


REM > FileList 
REM Program ARM program lister 


REM Version A 1.0 
REM Author David Spencer 
REM RISC User April 1989 


REM Program Subject to Copyright 


y a 
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80 DIM code 1000 
90 FOR pass=0 TO 2 STEP 2 

100 P%=code 

110 [OPT pass 

120 LDR RO, [R14,#&4C]:TST RO, #&£800000 

130 BICEQ RO,RO,#&FF000000 

140 ORRNE RO,RO, #&FF000000 

150 ADD R1,R14,#&54 

160 ADD RO,R1,RO,LSL #2 

170 ADR R1,temp:STR RO, [R1] 

180 MOV PC,R14 

190 .temp EQUD 0:] 

200 NEXT:CALL code 

210 tokenaddr=! temp 

220 : 

230 FOR pass=4 TO 7 STEP 3 

240 P%=0:0%=code 

250 [OPT pass 

260 SUB R13,R13, #256 

270 STMFD R13!, {R14} 

280 LDRB RO, [R1]:CMP RO,#ASC" " 

290 LDMCCFD R13!,{R14}:ADRCC RO,errl 

300 ORRCCS PC,R14, #1<<28 

310 MOV RO,R1:MOV R2,#%101<<29 

320 SWI "XOS GSInit":MOV R3,R12 

330 .readname SWI "XOS_GSRead" 

340 BVS error2:MOVCS R1,#0 

350 STRB R1, [(R3),#1:BCC readname 

360 SUB RO,RO,#2 

370 .findq LDRB R1,[RO, #1]! 

380 CMP R1,#32:BEQ findg:BCC open 

390 BIC R1,R1,#&20:CMP R1,#ASC"P" 

400 ADRNE RO,err2:LDMNEFD R13!, {R14} 

410 ORRNES PC,R14, #1<<28 

420 SWI "XOS WriteS":EQUS "Insert disc 
and press any key":EQUW &DOA:EQUB 0 

430 MOV RO,#15:MOV R1,#1 

440 SWI "XOS_Byte":SWI "XOS_ReadC" 

450 .open MOV RO, #648:MOV R1,R12 

460 SWI "XOS Find":BVS error2 

470 STR RO, [R12] 

480 BL get:CMP RO,#&D:BEQ ploop 

490 MOV RO,#0:SWI "XOS Find" 

500 ADR RO,err3:LDMFD R13!, {R14} 

510 ORRS PC,R14, #1<<28 

520 .ploop BL get:MOV R2,R0,LSL #8 

530 CMP RO,#&FF:BEQ end 

540 BL get:ORR RO,RO,R2 

550 ADD R1,R12,#4:MOV R2, #10 

560 SWI "XOS_BinaryToDecimal" 

570 RSB R1,R2,#5:.sl CMP R1,#0:BEQ sl2 

580 SWI &120:SUB R1,R1,#1:B sl 

590 .sl2 MOV R1,R2:ADD RO,R12, #4 

600 SWI "XOS_WriteNn": SWI &120 
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BASIC PROGRAM LISTING UTILITY 
Se a ee EL Re ce Ta DR ae kh a a 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


890 : 


900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
e, 0% 


SWI "XOS ReadEscapeState" 

BCS end:MOV R3,#0:BL get 

-ploop2 BL get:CMP RO, #&D 

SWIEQ "XOS_NewLine":BEQ ploop 

CMP RO, #&7F:SWICC "XOS WriteC” 
BCC ploop2:CMP RO, #&8D:BEQ lref 
CMP R3,#0:SWINE "XOS WriteCc" 

BNE ploop2:CMP RO, #&F4:MOVEQ R3, #1 
CMP RO, #&C6:CMPNE RO, #&C7 

CMPNE RO, #&C8:BEQ comp 

BL tcall:B tkprt 

.comp MOV R2,R0:BL get 

STRB RO, [R12,#4]:ADD R12,R12, #4 
MOV RO,R2:BL tcall:SUB R12,R12,#5 
.tkprt LDRB RO, [R1],#1:CMP RO, #&7F 
SWICC "XOS_WriteC":BCC tkprt 

B ploop2 


-lref BL get:MOV R2,R0,LSL #2 
BL get;AND R1,R2,#&C0 

EOR RO,RO,R1:MOV R4,RO0 

BL get:MOV R1,R2,LSL #2 

EOR RO,RO,R1:AND RO,RO, #&FF 
ORR RO,R4,RO,LSL #8 

ADD R1,R12,#4:MOV R2,#10 

SWI "XOS_BinaryToDecimal" 
MOV RO,R1:MOV R1,R2 

SWI "XOS WriteN":B ploop2 


.get LDR R1,[R12]:SWI "XOS BGet" 
BVS error:MOVCC PC,R14 ¥ 

SWI "XOS_NewLine" 

.end LDR R1, [R12] :MOV RO, #0 

SWI "XOS Find": LDMFD R13!,{PC}* 


-tcall STMFD R13!, {R14} 

ADR R14,tcall2:LDR PC,t jump 
-tcall2 LDMFD R13!, {PC} 
-tjump EQUD tokenaddr 


.error MOV RO, #0:LDR R1, [R12] 
SWI "XOS_Find" 
-error2 LDMFD R13!, {PC} 


.errl EQUD 100 

EQUS "No filename":EQUB 0:ALIGN 
.err2 EQUD 101 

EQUS "Bad qualifier":EQUB 0:ALIGN 
.err3 EQUD 102 

EQUS "Not a BASIC program":EQUB 0 
] NEXT 

SYS "OS File",10,"BLIST", &FFC,,cod 
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DESIGNER |e) 


POSSIBLY THE ONLY 
DRAUGHTING SYSTEM 
YOU WILL EVER 
NEED 


Created ifically for the Archimedes, DESIGNER INTRO is based 
on its big brother It shares the same 
uniquely logical menu structure and many of the powerful draughting 
routines, Enough power in fact to cock all of most peoples’ 
draughting requirements. Many of 's features are shown below. 
There is one feature however that we cannot show - its most important 
one - the simplicity of use that guarantees a short learning curve and 
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speedy drawing generation. 


FEATURES 

Fully menu driven with simple 
prompts and instructions for all 
routines. 


User definable grid with grid lock. 


Hunt and lock onto nearest end of 
ling, arc or centre of a arc/circle 
with a single button press. 


True arcs, tangents and normals, 
essentials for most drawin, 
applications but particul. 

important for cogmenns 

See aeons: Nine in-built arc types 
alone, 


Ellipses, full or part. 


Powertul delete facilities, ¢.g., last 
item, line, part line, arc, part arc, etc. 
software automatically finds 
intersections.) 
Unique MODIFY command allows 
drawing to be redrawn aline ata time 
forwards or backwards, The drawing 
may be ‘entered’ at any point thus 
giving total flexibility to edit and 
alter drawings. 
Automatic or manual dimensioning, 
user definable arrow heads/leader 
lines, 
Text entry at any size, angle or slope. 
(Text output limited pads the 
plotter available.) 


Hatching at any a paiepace 4 
Automatically Ynds enc noth 
boundary plus single or multiple 
islands. 


Powerful ELEMENT (layer) 
structure 


No practical limit to the number of 
drawing elements that may be 
created. 


Comprehensive transformation 
commands, MOVE, ROTATE, 
MIRROR IMAGE, ALTER SIZE. \ 


No practical limit to the size of 
drawing created - limited only by 
disk space. 

Libraries of drawings can easily be 
created. Library items can then be 
incorporated into the current 
drawing at any size, angle, position, 


Zoom, scale and pan facilities (plot- 
outs may be taken at any time), 


Output to wide range of line peters 
from AS to AO, e.g.. Graphtec, ett 
Packard, Hitachi, Plotmate, Roland, 
atc. Plus screen dumps for 
FX/MX/RX compatible printers. 
COST EFFECTIVE CAD FOR 

YOUR ARCHIMEDES 

In creating INTRO TechSoft have 


kept the features that made 
DESIGNER (BBC) so lar. There 
is however one feature that we have 


cut back on - the cost. INTRO is not 
a toy {although you will enjoy playing 
with it), itis a true working system 
at a realistic price. 

P.S. If your draughting requirements 
are more demanding than normal 
take a look at 


ie any drawing. 
PERIPHERALS 
Please remember that TechSoft can 
supply a wide range of CAD related 
peripherals and accessories, ¢.g.. 
plotters, plotter pens, etc. 


ORDERING 

Cheque with order please, le 
to TechSoft UK Ag ania 
Add VAT @ 15% of total. (Official 
educational orders welcome.) 


, more than a match 


onty £79 + VAT. 


nw 


TechSoft UK Ltd. 
Old School Lane 
Erryrys, MOLD 
Clwyd CH7 4DA 
Tel: 082 43.318 


ARC PROCEDURE LIBRARY 


by Lee Calcraft 


A new occasional series, bringing you a range of useful functions and procedures. 
Our first library entries concentrate on mouse-related utilities. 


In this series we will be bringing you a 
variety of procedures and functions which we 
hope will form a library of useful building 
blocks. These may be used when and where 
you choose, and may be incorporated into a 
program either by typing the code in directly, by 
appending it using the Arc's APPEND 
instruction (which automatically renumbers the 
incoming program lines), or by using the 
LIBRARY or INSTALL statements (see RISC 
User Volume 1 Issue 2). 


Although the WIMP provides a useful 
environment for the Arc, it is not easy to 
program, and carries a significant overhead in 
length of code. For those who sometimes 
prefer to go it alone, we begin our procedure 
library with two mouse related utilites which do 
not make use of the WIMP. 


PROCmousewait 

This first procedure repeatedly checks the 
mouse and/or keyboard to see if the user has 
supplied an input of the required type. The type 
of input is specified by a single parameter, as 
follows: 


Value Effect 
0 Wait for button release 

1-7 Wait for specified button press 
8 Wait for any button 

16 Wait for keyboard input 


For example if you insert the line: 

PROCmousewait (4) 
into a program, the program will halt until the 
Select button is pressed (since on the Arc, 
Select has the value 4, Menu 2 and Adjust 1). 
To make the procedure return after any button 
is pressed, use: 

PROCmousewait (8) 
lf you add 16 to the parameter, then it will also 
return if the user presses any key on the 
keyboard. Thus: 

PROCmousewait (1+16) 
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will wait until any key, or mouse button 1 
(Adjust) is pressed, while: 

PROCmousewait (16) 
will wait for any key, but ignore the state of the 
mouse. 


When the procedure returns it sets four 
global variables: w%, x%, y% and z%. The first 
takes the ASCII value of any key pressed (-1 if 
none pressed), while x%, y% and z% are the x 
and y co-ordinates of the mouse pointer at the 
time of selection, and z% is the value of the 
button pressed, or 0 if the mouse was not used. 


If you call the procedure with the parameter 
zero, the routine will return as soon as all 
mouse buttons are released. This is very 
useful, because, even though we can flush the 
mouse buffer with *FX21,9, this does not 
prevent a user's single click from being read as 
a whole sequence of responses. The only way 
to avoid this is to wait until the mouse is clear of 
presses between button checks. The procedure 
caters for this in a second way: if you place a 
negative sign in front of the calling parameter, 
the procedure will first wait until no button is 
pressed, and then wait for the requested one. 


FNpositiond 

This very short function determines whether 
the mouse pointer is within a specified 
rectangle, and is extremely useful in the 
processing of mouse selections. It takes six 
parameters: the x and y co-ordinates of the 
pointer (as read by PROCmousewait for 
example), the bottom left-hand co-ordinates of 
the rectangle in question, and its width and 
height respectively. | have added a "d" to the 
function name as a reminder that the last two 
parameters are not absolute co-ordinates, but 
"differences". 


As an example of the use of this function, 
the following two lines will wait for the Select 
button to be pressed, and then check if the 


29 


ARC PROCEDURE LIBRARY 


pointer is within a rectangle at X,Y and of width 
W and height H: 

PROCmousewait (-4) 

IF FNpositiond (xs, y%,X,¥,W,H) VDU7 
If the pointer is over the defined area, a beep 
will sound. 


The short program accompanying the two 
procedures in the listing provides a further 
example of their use. If you run it, a rectangle 
will appear, and each time you press the Select 
button, the word “Inside” or “Outside” will be 
displayed, indicating the position of the pointer 
relative to the rectangle. 


Next month we will provide procedures to 
streamline the task of drawing selection boxes 
on the screen, and of determining which one 
has been selected by the user. 


10 REM >Mselprcs 

20 REM Procedure/Function Library 

30 REM Version A 0.3 

40 REM Author Lee Calcraft 

50 REM RISC User April 1989 

60 REM Program Subject to Copyright 


80 MODE12 

90 PRINT"Select to test grid" 
100 PRINT"or Menu to quit” 

110 OFF; *POINTER 

120 RECTANGLE 200, 300,800,100 
130 REPEAT 

140 PROCmousewait (-8) 

150 IF z%=4 THEN 


160 PRINTTAB(0,6); 
170 ~=—s IF FNpositiond(x%,y%, 200, 300,800 
100) PRINT"Inside " ELSE PRINT"Outside" 


180 ENDIF 

190 UNTIL z%=2 

200 ON 

210 END 

230 DEFPROCmousewait (n) 

240 REM 0-7: Wait for this mouse state 

250 REM neg: Wait for zero first 

260 REM 8: Wait for any button 

270 REM 16; Wait for keypress 

280 LOCAL anypress, inkey,m 

290 *FX21,9 

300 IF n<0 THEN PROCmousewait (0) :n=ABS 
(n) 

310 IF (n AND 16)>0 THEN inkey=TRUE:*F 
X21 

320 IF (n AND 8)>0 THEN anypress=TRUE 

330 m=n AND 7:wt=-1 

340 REPEAT 

350 MOUSE x%,y%,z% 

360 IF inkey THEN wt=INKEY (0) 

370 UNTIL (z%=m AND NOT (n>7 AND m=0)) 
OR (anypress AND (z%>0)) OR (inkey AND 
(w%>-1)) 

380 ENDPROC 

390 ===<==: 

400 DEFFNpositiond (xt, yt, x1%,y1%,xd$,y 
d%) 

410 =x%>x1% AND x%&<xl%+xd% AND y$>y1% 
AND y%<yl$t+yd% 


420 sseeeeeecseo===sesessesrsasssssss== 


Sze ee ess ss 


ADVERTISING IN RISC USER 


For advertising details, 
please contact Sarah Shrive on (0727) 40303 


or FAX: (0727) 60263 
or write to: 


RISC USER Dolphin Place, Holywell Hill, St. Albans, Herts AL1 1EX 
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IME RSC OS RAT FLING STSTEM 


Lee Calcraft gives a brief overview of this new RISC OS feature. 


On Arthur 1.2 you can configure RAM for 
use with the RAM filing system, but the filing 
system itself is not implemented. RISC OS 
corrects this oversight with the implementation 
of a full-feature RAM filing system. 


To make use of it, you must first of all 
configure some RAM. Either use “CONFIGURE 
or the Task Manager from the Desktop. As an 
example of the former: 


*CONFIGURE RAMFSsize 160K 


followed by Ctrl-Break will set aside 160K of 
RAM for the RAM filing system. The RAM filing 
system icon will now appear on the Desktop 
icon bar alongside the floppy and or hard disc 
icons. Double clicking on this will open up the 
root directory in the same way as double 
clicking on any of the other drive icons. 


*CAT 

++RISCapr 
Option 868 COFF> 
++RISCapr 


Disc RamDisc® : 
URD “Unset” 

Dir. Lib. “Unset” 
caT WR 
Global WR 
Hourglass WR 
Screen WR 
Tubular WR 


FsystTstl 
Global2 
Mseipres2 
SubDIR 
Tubulari 


Cataloguing the RAM disc 


FROM THE DESKTOP 

In fact the RAM disc will behave exactly 
as any floppy or hard disc. You can copy files 
or directories between it and any other open 
directory on the Desktop simply by dragging 
icons across in the normal way. But there are 
two main differences. First of all, you must 
remember that the contents of the RAM disc 
are volatile, and will be lost after a hard reset 
(Ctri-Break or Ctrl-Reset or power off). But it 
is an easy matter to back up the RAM disc at 
the end of a session by dragging appropriate 
RAM directories across to a floppy directory 
on the Desktop. Secondly the RAM disc is 
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exceptionally fast. It takes just 0.05 seconds 
to save an 80K screen, for example. This is 
100 times faster than a floppy under RISC 
OS (Arthur screen saves are 300 times 
slower!). 


One obvious application for the RAM disc is 
in cases where speed of loading and saving is 
important. For example, you could set up the 
RAM disc to hold eight mode 12 screens, and 
load them in at a speed fast enough for 
animation, and without wear and tear on your 


floppy. 
OUTSIDE THE DESKTOP 


If you are using your machine without the 
aid of the Desktop, you can again treat the 
RAM disc just like any other. To make the RAM 
filing system current, use: 

*ramM (“ADFS will reverse the effect) 


You can then use “CAT to catalogue the disc, 
and use all the ordinary commands just as with 
the ADFS: 


LOAD, 
*WIPE, 


SAVE *LOAD, *SAVE, *FREE, *BACK 


*COPY, *COUNT etc etc. 


To refer to the RAM disc when you are 
currently in the ADFS or Econet, use the prefix 
"RAM:". Thus to copy the file "MyProg" from 
$.Bananas on the ADFS (your current filing 
system) to $.Potatoes on the RAM disc, use: 


*COPY $.Bananas.MyProg RAM:$.Potatoes, 
MyProg 


If you have a program which needs to know 
which is the current filing system, you can use 
the SYS call given in this month's Hints. It will 
return the value 23 for the RAM filing system. 


Fans of the RISC User ADFS Menu (RISC 
User Volume 1 issues 1, 2 and 10) will be 
pleased to hear that it works well with the 
RAM filing system. Just use “RAM to engage 
the RFS. The only thing which it.gets wrong 
is the free space display, but this is easily 


ignored. RU 
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ARE YOU GOOD ENOUGH? 


As the leaders in software for the Archimedes range of computers, CLARES 
MICRO SUPPLIES are looking to extend our range even further. We are 
looking for people who are as excited by the Archimedes as we are. 


lf you have written any programs, completed or not, then we would like 
to hear from you. 


If you have any ideas for programs and have the ability to execute the 
ideas then we want to hear from you. 


If you have the ability to program the Archimedes but not the ideas to 
program then we want to hear from you. 


Programs can be written in any language as long as they perform their 
stated task. Many of our programs contain large chunks of BASIC with 
ARM code in the areas that it is needed, BASIC on the Archimedes is a 
very powerful language and we do not attach any snob value to its use. If 
your program does what is meant to do then thats all we are interested in. 
Why not join the top team on the Archimedes. You get the support of our 
in-house team, privileged access through us to Acorn and invitations to 
our informal programmers seminars, 


The most important point is that you will be earning top royalty rates of if 
you prefer we will purchase your program outright. 


Please write, in confidence, to Mr. D. Clare at: 


Clares Micro Supplies, 
98 Middlewich Road, 
Northwich, 
CHESHIRE CW9 7DA 


If you have a program either complete or in development then please 
enclose a copy for our evaluation, 


To protect yourself we advise that you lodge a copy of the program with 
your bank or solicitor BEFORE you send us a copy. You can then prove 
that your program pre-dates anything that we have. 


Act today and become part of the leading software team producing 
software for the worlds fastest micro. 
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USING BASIC'S TOKEN TABLE 


David Spencer shows how Basic's token table can be put to good use. 


As you may be aware, when a Basic 
program is stored in memory (or in a file), the 
keywords in it (PRINT, REPEAT, SIN etc.) are 
replaced by a token - a number unique to that 
particular keyword. This saves RAM, and 
greatly improves execution speed because 
each keyword is much more easily identified 
when the program is run. The penalty is that 
the keywords must be tokenised when the 
program is entered, and detokenised when it is 
listed. 


On the earlier BBC micros, any utility that 
wished to convert a token to its corresponding 
keyword, or vice-versa, either had to have a 
complete table of keywords (lengthy), or had to 
illegally access the table in the Basic ROM 
(prone to incompatibility problems). Basic V on 
the Archimedes is much more civilised, and 
provides a routine that converts a token into its 
keyword. It is this technique which is used in 
the program listing utility elsewhere in this 
issue. 


The routine in question, given the name 
TOKENADDA, is one of a number of routines 
whose addresses are made available when a 
machine code routine is called using the CALL 
statement. These will be the subject of a future 
article, but all that is necessary to use the 
TOKENADDR routine is to include a short 
machine code patch in your program. This 
patch can be found in the example program 
(explained later) between lines 80 and 150. 
You should include this in your own code, and 
execute it when the program is first run. 


To use this routine, set A% to the value of 
the token (and B% to the second byte for 
composite tokens - see below) and execute 
CALLcode. This will call the TOKENADDAR 
routine, and then store the address where the 
keyword can be found in the variable temp. 
This will be a memory address within the Basic 
module. The keyword is terminated by a byte 
with a value of &7F or greater, and therefore, 
the keyword can be printed using the following 
code: 

ptr=!temp 

WHILE ?ptr<é7F 
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VDU ?ptr:ptrt=1 
ENDWHILE 


COMPOSITE TOKENS 

The tokens for most keywords fall in the 
ranges &7F-&8C, &8E-&C5 or &C9-&FF. 
However, some of the keywords new to Basic V 
have two-byte tokens. These consist of a byte 
of &C6, &C7 or &C8, followed by a second byte 
identifying the actual token. The valid range for 
this second byte depends on the first byte: 


First byte Valid range of 
second byte 
&C6 &8E-&8F 
&C7 &8E-&9B 
&C8 &BE-&A4 
POINTS TO NOTE 


There are a few points to note about token 
values: 

1. The value &8D is not a valid token. 
Instead, it is a marker used to identify line 
references in GOTO, RESTORE etc. It is 
followed by three bytes containing a line 
number in coded form. 

2. The keyword BY (used for relative co- 
ordinates) isn't tokenised 

3. There are two tokens for ELSE. A value of 
&8C is used for an ELSE in an IF..THEN..ELSE 
statement (and ON..GOTO..ELSE etc.), and a 
value of &CC for an ELSE in an 
IF.. THEN..ELSE..ENDIF structure. 

4. TOP and LISTO do not have their own 
tokens as such. Instead, they use the token for 
TO followed by a 'P’, and the token for LIST 
followed by an 'O' respectively. TWINO, on the 
other hand, does have a token separate from 
that for TWIN. 


TOKENISING KEYWORDS 
The TOKENADDA routine is fine for 


converting a token into its keyword, but what 
about converting a keyword into its token in the 
first place. Unfortunately, Basic doesn't make 
available the routine to do this. The only simple 
solution is to include a list of keywords and 
tokens in your program. Rather than doing this 
manually, you can use TOKENADDR with each 
valid token in turn to produce the entire list. 
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EXAMPLE PROGRAM 

To allow you to experiment with the 
TOKENADDR routine, the following program 
will print out all the valid tokens with their 
corresponding keywords. Note that the 
composite token C8 A4 represents the keyword 
‘OVERLAY' which is new to the Basic 1.04 
supplied with RISC OS. If this program is run 
on an older version of Basic, then the keyword 
printed for this token will be meaningless. 


10 REM >TList 

20 REM Program Basic Token Lister 
30 REM Version A 1.0 

40 REM Author David Spencer 

50 REM RISC User April 1989 

60 REM Program subject to copyright 


80 DIM code 100 

90 FOR pass=0 TO 2 STEP 2 

100 P%=code: [OPT pass 

110 STMFD R13!,{R14):MOV R2,R14 

120 ADR R12,temp:STR Ri, [R12] 

130 ADR R14,back:ADD PC,R2, #&4C 

140 .back STR R1,temp:LDMFD R13!, {PC} 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


.temp EQUD 0; jNEXT 

REPEAT READ al%,ah%,b1%,bh% 
IF al%<>0 THEN 

FOR At=al% TO ah’ 

FOR B%=b1% TO bh* 

CALL code 

PRINT~A%; : IF B% THEN PRINT" ";~B3; 
PRINTTAB (12); :ptr=!temp 
WHILE ?ptr<é7F 

VDU ?ptr:ptrt=1 

ENDWHILE 

PRINT: NEXT 

NEXT 

PRINT 

ENDIF 

UNTIL al%=0 

END 


320° |: 


330 
340 
350 
360 
370 
380 
390 


DATA 127,140,0,0 
DATA 142,197,0,0 
DATA 201,255,0,0 
DATA 198,198,142,143 
DATA 199,199,142,155 
DATA 200,200,142,163 


DATA 0,0,0,0 


BACKUP 
IN BROMLEY 


AUTHORISED ACORN DEALERS é 


We offer full technical backup, service and advice as well as 
a comprehensive range of software and hardware 
for your Archimedes. If you have a problem - we can 
help you. 


Call in for a software or hardware demonstration, 
or phone for prices and availability 


Data Store 


6 Chatterton Road, Bromley, Kent 
Telephone : 01-460 8991 (closed Wednesdays) 
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CRC OS fercEdét: the RISC OS Tent Editor 


Mike Williams investigates ArcEdit, the new text editor supplied with RISC OS. 


Three major applications are supplied with 
RISC OS - Edit, Draw and Paint. In this issue of 
RISC User, I'll take a first look at Edit (also 
called ArcEdit), the text editor, and give you 
some thoughts on my experiences so far. 


ArcEdit can be used as a simple word 
processor, and possesses a number of 
attributes which are really only relevant in that 
context (indent, format, choice of font, font size, 
line spacing and margins). However, if you 
intend to do much word processing, you will 
almost certainly find that a dedicated word 
processor such as 1st Word Plus or 
Pipedream, is essential. Formatting is very 
rudimentary to say the least, and there is no 
spelling checker. Indeed, one is almost led to 
wonder why any word processing features were 
included at all when so many are missing. But 
for simple word processing tasks it will suffice. 


ArcEdit's main applications are likely to be 
in the editing of Command and Obey files (see 
RISC User Volume 2 Issue 4) and similar, and 
in editing the source code for programs in 
various languages (including Basic and 
assembler). No doubt many other needs will 
arise for which ArcEdit will be eminently 
suitable. 


INSTALLING ARCEDIT 

ArcEdit is a multi-tasking application, and 
must therefore be installed on your system 
each time it is switched on before you can use 
it. This is easily accomplished from within the 
Desktop by displaying the directory for the 
appropriate applications disc (as supplied with 
RISC OS), and double-clicking on the Edit icon. 
ArcEdit is installed in memory, and its icon 
appears on the menu bar at the foot of the 
screen. 


ARCEDIT IN USE 

There are three ways to start editing a 
document. The simplest is to click (with the 
select button) on the Edit icon on the menu bar, 
and a blank text window will appear. 
Alternatively, pressing the menu button while 
pointing to the Edit icon will display a short 
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menu from which the Create option will 
generate any one of five different window 
types. If a file already exists, you can double 
click on its icon, or drag its icon over the Edit 
icon on the menu bar. The former is usually 
much the easier in practice. 


Most if not all functions within ArcEdit can 
be controlled by the mouse, using the menu 
button (when over a text window) to display a 
top level menu with five options. Each of these 
in turn leads to a further sub-menu, and in 
some cases a further sideways menu choice is 
offered. You may find manipulating these 
menus tricky at first but your skill here will 
almost certainly improve with practice. 
However, many menu options are also 
available as direct keyboard operations. 


THE MISCELLANEOUS OPTION 

This provides information about ArcEdit and 
the current text file. A further option, called 
New view, will split the current text window into 
two separate windows, both on the same text 
file. Using this facility, different parts of the 
same file may be viewed at the same time, and 
blocks of text can be readily moved or copied 
from one such window to another. It would 
appear that you can continue to split text 
windows as much as you like. The only 
limitation is the extent to which you can 
manage to use such a multiplicity of windows 
on the screen. 


THE SAVE OPTION 

This is used to satisfy two slightly different 
requirements, to save for the first time some 
newly created text, and secondly to save a new 
copy of text previously saved. In the former 
case, simply type in the name you want to give 
the text file, display the directory in which the 
file is to be displayed on the screen, and drag 
the displayed image of the text file to the 
directory viewer. This can prove awkward if you 
have forgotten to display the relevant directory 
before attempting the save, or the directory has 
become hidden behind other windows, and the 
whole process is not as smooth as it might 
have been. However, to save a new version of 


35 


AncEdit: the RISC OS Text Editor 


an existing file, it is only necessary to click on 
the 'OK' button in the save sub-menu, and this 
works well, 


THE SELECT OPTION 

This option is primarily concerned with 
operations on blocks of text. Once highlighted, 
a block can be copied, moved, deleted, saved 
or indented. Selected blocks can also be de- 
selected. 


A block of text can be created by clicking 
the select button at the start of the block, and 
dragging the text cursor (a symbol referred to 
as a caret) to wherever the block ends. 
Unfortunately, the window does not scroll 
automatically if the pointer is moved below the 
window frame, and it thus appears impossible 
to mark a block which is larger than the 
maximum size of window (neither is there a 
select-all option). A single word can be 
selected by double-clicking, a whole line by 
triple clicking. Double clicking on a word also 
selects the spaces at both ends of the selected 
word. So using this method to delete a word 
leaves no gap between remaining words, and 
copying or moving a word will often result in an 
unwanted extra space. 


A marked block of text may be saved to a 
file, and then copied to another document by 
positioning the pointer, and then dragging the 
file icon in the corresponding directory viewer 
onto the current text window. 


uc CAIT FADTIAAI 
= EVI IPTION 


The main feature of this option is a Find- 
and-Replace facility. Searches can be case 
sensitive or not, but if not, any replacement is 
substituted ‘as is', and does not preserve any 
existing upper/lower case pattern. Thus a word 
which appears both at the start (with a capital 
letter) and within sentences cannot be correctly 
substituted for in a single search and replace 
operation, 


The Find option can be used as a search or 
as a search-and-replace facility, and search 
and replace strings may contain a variety of so- 
called Magic characters. Thus ‘\d.\d' would 
search for a string consisting of any digit 
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followed by '.’ followed by any digit. Control 
codes and ASCII characters (in the range 0 to 
255) may also be included. 


Once a search commences, and an 
instance of the target string is found, the found 
box appears giving 7 different options, much as 
might be expected. These also include the 
facility to Undo the last change, and to Redo 
the last undone change! Although useful, there 
are limitations which make this feature less 
powerful than that provided by Edit on the BBC 
Master 128 for example. 


A further option in the Edit menu is Format, 
allowing the column width of text to be 
changed. This achieves very little that is useful, 
and formatting of text remains largely non- 
existent in ArcEdit. 


Using the Find option 


THE DISPLAY MENU 

This menu provides choices which affect 
the way text is seen on the screen. Text font 
and size may be selected, but all text is 
formatted in the same way; there is no facility 
to mix fonts or sizes within the same document. 
Line spacing may be determined to the nearest 
pixel, yet only the left-hand margin may be set, 
and then only to the nearest character. 
Foreground and background colours may be 
selected, and text inverted if required. The 
wrap option, if selected, means that text is 
always formatted to fit the size of the window 
(horizontally), rather than allowing the window 
to scroll over the text area. 
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As | said at the outset, ArcEdit has many 
limitations when viewed as a word processor, 
but is adequate for the simplest of word 
processing tasks. It is as a text editor that 
ArcEdit should be used, and for this it generally 
performs well, but why confuse the user with 
extra features which are quite irrelevant in a 
text editor (line spacing for example)? 


One particularly useful facility is the ability to 
select the type of file being created (by clicking 
the menu button when pointing to the Edit 
icon). Such files (Obey files for example) will 
then automatically be saved with the correct file 


type. 


A further type of window is the task window. 
This is not an editing window, but provides an 
environment in which the user can initiate a 
new task, and has its own set of menu choices. 
This is a very useful feature, particularly for the 
more experienced user, and we shall cover the 
uses of this in more detail later. Suffice it to 
say, that by creating two such task windows, it 
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is quite possible to have two Basic programs 
running concurrently (see illustration). 


: Ht ide 
‘WC DETTE F version 1.06 (Cy 
Starting with 74076 bytes free 


Die }*} [eeeees 
| )2OPRINT 3}, Siett), Cascr) 
alti 5 
iphed 
1 


Using task windows to run Basic 
programs concurrently 


These are my initial views on the new 
editor. Once you have your own copy installed 
we will be pleased to receive your own 
comments, and to receive any useful 
information for our Hints pages. FRU 


by Barry Christie 


Archive (March 89)..."Art Nouveau is a 
superb package" 


Micronet... "a find....its origins in Scottish 
education suggest that it is the 
art comes before the clever 
programming... 
Definitely recommendea".... 


ONLY £42.50 inc 


VAT and P&P 


Feraehémed 
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Two spectacular programs by Mike Ironmonger. 


Keatl-TJime Jmage 
Waaprsag 

Last month we carried a program allowing 
images to be wrapped around a sphere. This 
was accomplished in Basic, and a sequence of 
sprites was created, permitting subsequent 
animation. This month we feature two image 
wrapping programs which run in real time. Both 
will wrap any mode 12 or 13 image. The first 
wraps the image around a sphere, which spins 
at a speed determined by the position of the 
mouse, The second wraps the image around a 
horizontal cylinder, whose speed of rotation is 
again mouse-controlled. The cylinder is open 
ended, and you can see the image wrapped 

onto its inner as well as its outer surface. 


Image wrapped around a sphere 


Both programs are relatively short, 
considering the work which they perform, and 
both use fully legal screen addressing code. 
Before running either of them, you will need an 
appropriate screen called “Screen” (previously 
saved using *“ScreenSave Screen) in the 
current directory of your disc. The only thing to 
watch is that you will need 240K of screen RAM 
(use *Configure ScreenSize 30 on a 300 series 
machine). The reason for this is that three 80K 
screen banks are needed: one to hold the 
loaded screen, and two for bank switching to 
achieve smooth animation. 
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When you run the cylinder program, you 
can use the mouse to determine the width of 
the displayed cylinder. You will see two 
vertical bars on the screen. These represent 
the left and right edges of the cylinder. 
Moving the mouse will alter the left hand bar, 
while the right hand bar may be moved by 
pressing Select or Adjust. When you are 
happy with the size, press Menu, and the 
cylinder will appear. 


Image wrapped around a tube. 
Both images are from Clare's Artisan 


Notes 


1. Both programs use a look-up table created in 
Basic to calculate the pixel positions of the 
wrapped image. In the case of the first program 
the table contains two words for every pixel that 
makes up the globe. The first specifies where 
to get the pixel from, and the second where to 
put the pixel. The table is a massive 170K in 
size, and takes some 10 seconds to generate 
before the image wrap can proceed. There is 
no noticeable delay with the cylinder program. 


2. For an interesting effect, try altering line 600 
of the first program to: 
H&t=320* (offset%>>3 AND 255)+X% DIV 4 
3. The appearance of the tube in the second 
program can be altered by adjusting the values 
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of the two variables in line 500. They determine 
the horizontal (H%) and vertical (V%) radius (in 
pixels) of the mouth of the tube. If H% is 
negative, then the mouth of the tube appears at 
the left instead of the right. Note also that you 


should 


10 
20 
30 
40 


390 
400 


keep V% to 43 or less. 


REM 

REM Program 
REM Version A 1.00 

REM Author Mike Ironmonger 

REM RISC User April 1989 

REM Program Subject To Copyright 


>Tubular 
Rotating screen 


ON ERROR MODEO:PRINT REPORTS;" at 
#ERL: END 

MODEO:DIM code% 2000, addr% (3) 
FORAt=0TO1 : P4=code% 
[OPT A%*2 

ADR R8,table 

MOV R9, #256 
-next_line 

LDR RO, [R8), #4 
RO, #0 
no_line 
R10,R7,R5 
R11,R0,R6 
R3,R4 
-next_byte 

LDRB- RO, [R10], #1 
STRB RO, [R11], #1 
SUBS  R3,R3, #2 
LDRNEB RO, [R10], #1 
STRNEB RO, [R11], #1 
BPL next_byte 
-no_line 

SUBS  R5,R5, #320 
ADDMI R5,R5, #81920 
SUBS R9,R9,#1 

BNE next_line 
MOV PC,R14 


-list EQUD150:EQUD-1:EQUDO 
.table 
] :NEXT 


SYS "OS_ReadVduVariables", list, lis 
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t+8 
410 

creen 
420 
430 

"MODE 


440 : 


450 
460 
470 
t+8 
480 
490 
500 
510 
520 
)+.5 
530 
540 


Flashimedss Visuals 
a a ie ee SE a AS te Saeed 


IF list!8<240*1024 PRINT"240K of s 
memory required": END 

*ScreenLoad Screen 

OFF:IF MODE<>12 AND MODE<>13 PRINT 
10,12,13 only": END 


!list=148:FOR At=3 TO 1 STEP-1 
SYS "OS Byte",112,A%:IF At>1 CLS 
SYS "OS ReadVduVariables", list, lis 


addr% (At)=list!8:NEXT 

Ht=32:V%=43 

FOR A=0 TO PI*2 STEP PI/128 
OAS=A%:X3=HE* SIN (A) +. 5: Y8=VE*COS (A 


At=Y3*320-X%: ! PH=AK* (AB<>OAS) 
P&+=4;NEXT 


550 : 


560 
570 
580 
590 


GCOL 3,1:MOUSE TO 480,0 
OX$=480:OWS=316:PROCrec 

REPEAT 

WS=OWS+4* (BS=4 AND OWS%>4)-—4* (BE=1 


AND OW%<1280-8*ABS (H%) ) 


600 
610 
620 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
bank’ 
760 


770 ; 


780 
790 
800 


MOUSE RECTANGLE 0,0,1276-W%,0 
MOUSE X%,Y%,B% 
WAIT: PROCrec: OXt=X% : OWS=W4 : PROCre 


UNTIL B%=2:PROCrec 


*Pointer 
MOUSE TO 640,512 
E%=0W%S /4: H3=addr& (1) +OX%/4 
addr () +=(159-OW%/8+320*127) 
offset %=0: bankt=2:*FX 113,3 
REPEAT 
MOUSE X%,Y%,B% 
offset%+=YsDIV4-128 
F%=320* (offset%>>3 AND 255) 
Gt=addr% (bank%) :CALL code’ 
WAIT: SYS "OS _Byte",113,bank% TO , 


UNTIL FALSE 
DEFPROCrec 


RECTANGLE OX%,-4,0W%, 1028 
ENDPROC 
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We offer NOW 

a unique AVAILABLE 

inspection Call for 
copy service full details 


( Ww 
Have you 
spent long hours struggling 
with the programming complexities of the brilliant 


Archimedes WIMPS system? 


With ARCHWAY that’s all behind you. Now YOU can easily and quickly 
build multi-window programs with pop-up menus, icons, mouse control, 
etc. of a professional quality. 


ARCHWAY provides tools, bricks, mortar and a basic structure. YOU slot 
the final bricks into place and add finishing touches. 

A comprehensive suite of integrated tools lets you define and edit 

windows, menus, icons, dialogue boxes, mouse pointers, sprites, fill and 

line patterns, anti-aliased fonts, short cut keys and much more! You can 
import files (eg ARM machine code and music editor). 


The bricks include an extensive library of functions and procedures 

providing ready access to many of Archimedes’ most powerful features. 

An in-depth user guide (300+ pages, ring bound) takes you gently step- 

by-step through a progressive series of program building examples with 
the emphasis on clarity. 


The ARCHWAY run-time package together with £79.95 
script shells in BBC BASIC provide the structure. incl. VAT & p/p 


The complete system comes on 4*800k discs (3 tools & 1 run-time). You 
need 1M of RAM to run the tools. One disc drive is sufficient. 


SPECIAL INTRODUCTORY OFFER: No charge for upgrade to the 
extended RISC OS 2.0 version we will release in May 1989. (£99.95) 


SO SIMTRGN vere 


4 CLARENCE DRIVE, EAST GRINSTEAD, 
WEST SUSSEX RH19 4RZ Telephone (0342) 328188 


a Cheques/POs/official orders or Access/Visa number and 
[ Access | expiry date. 24-hour ’phone for Credit Card orders. 
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ne 


10 REM >Global 
20 REM Program Spinning globe 
30 REM Version A 2.00 


40 REM Author Mike Tronmonger 
50 REM RISC User April 1989 
60 REM Program Subject to copyright 
70 ¢ 
80 ON ERROR MODEO:REPORT:PRINT” at li 
" ;ERL: END 
90 : 
100 DIM screens (3),sin(128) 
110 DIM code% 1000,table% 21736*8 
120: 
130 FOR At=0 TO 1:P%=code% 
140 [OPT A%*2 
150 LDR R8,pixs 
160 ADR R9,table% 
170 ,next_block 
180 | 
190 FOR B%=1 TO 19 
200 [OPT A%*2 
210 LDMIA R9!, {R1-R4) 
220 SUBS R1,R1,R7 
230 ADDMI R1,R1, #81920 
240 LDRB RO, [R5,R1) 
250 STRB RO, [R6,R2] 
260 SUBS R3,R3,R7 
270 ADDMI R3,R3, #81920 
280 LDRB RO, [R5,R3] 
290 STRB RO, (R6,R4) 
300 ]:NEXT 
310 
320 
330 
340 
350 
360 
370 


(OPT A&%*2 

SUBS R8,R8,#38 

BNE next_block 

MOV PC,R14 

-pixs EQUD 21736 

-in  EQUD 150:EQUD -1 
380 .out EQUD 0 

390 ] :NEXT 

400 : 
410 SYS "OS_ReadVduVariables", in, out 
420 IF !out<&3C000 PRINT"Program requi 


res 240K of screen memory":END 


E 


430 *ScreenLoad Screen 
440 IF MODE<>12 AND MODE<>13 PRINT"MOD 


12 or 13 only”: END 
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450 
460 
470 
480 
490 


500 : 


510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
bank’ 
630 


640 : 


650 
660 
670 
680 
690 
700 
710 
720 


Hashinmedss Visnats 
(= ae Ss et Se a ee ee 


!in=148:FOR A%=1 TO 3 
SYS "OS Byte",112,A%:IF A%>1 CLS 
SYS "OS ReadVduVariables",in, out 
screen’ (A%)=!out 
NEXT: OFF 
PROCcreate table 
*FX 113,3 
*Pointer 
MOUSE TO 640,512 
F%=screen% (1): offset t=0: bank=2 
REPEAT 
MOUSE X%,Y%,B% 
offset%+=128-Y%sDIV4 
Gt=screen% (bank%) 
Ht=320* (offset%>>3 AND 255) 
CALL code% 
WAIT:SYS "OS Byte",113,bank% TO , 


UNTIL FALSE 

DEFPROCcreate_ table 

A&=0:FOR A=0 TO PI/2 STEP PI/256 
sin(A%)=SINA:A%+=1: NEXT 

RB=83 :OX%=1:x3=0:Tt=tablet 
FORX=0 TO PI/2 STEP PI/320 
X%=.5+RS*SINX: IF X%<>OX% PROCline 
x%+=1: NEXT 

ENDPROC 


tag of 


740 
750 
760 
770 
780 


DEFPROCline 

B&=RS*COSX : OXE=X4: OYS=1 

FOR A%=0 TO 127:Y%=H%*sin (A%) 
IF Y%<>OYS PROCpix 

NEXT: ENDPROC 


790 : 


800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 


DEFPROCpix 
T%!0=41120+A8*320+x% 
T$!4=41120+¥%*320+X% 
T%!8=41119+A%*320-x% 
T$!12=41119+¥%*320-x% 
T%!16=40B00-AS*320+x% 
TS! 20=40800-Y%*320+X% 
T%!24=40799-AS*320-x% 
T%!28=40799-Y%*320-Xx% 
OY$=¥$:TS+=32 

ENDPROC 
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COMPUTER CONCEPT'S SCANNER 


David Spencer looks at Scan-Light, Computer Concept's new scanner package. 


Scan-Light from Computer Concepts is a 
system that takes a printed image and reads it 
into a sprite. This is an integral part of 
Computer's Concepts Fax system, and the 
company has decided to release the scanner 
as a separate product. 


SCAN-LIGHT 

Computer Concepts’ package 
consists of a hand-held Mitsubishi 
scanner, a podule which fits inside the 
Archimedes, and a user guide. All the 
software to control the scanner is 
included in an EPROM on the podule, 
and therefore no disc-based software 
is supplied, Obviously, a podule back- 
plane is necessary to use Scan-Light. 


The scanner podule at first sight 
appears to be a largely unpopulated 
circuit board. This is because the 
board is actually a cut down version of 
the long-awaited Fax podule. CC | 
supply a half width blanking plate to 
allow the podule to be mounted properly, and 
installation is a fairly simple process. The 
podule back-panel carries a socket for connect- 
ing the scanner, and a couple of unused holes, 
again a carry over from the Fax system. 


When the computer is switched on, the 
presence of the scanner podule is not 
announced in any way. It is only when you type 
“SCAN, or use the RISC OS task manager to 
start up a task called ‘Scan’, that the system 
springs into life. Scan-Light is fully compatible 
with both Arthur 1.20 and RISC OS, though | 
shall only deal with RISC OS here. Once 
started, an icon appears on the icon bar, anda 
large window is opened that will eventually 
display the scanned image. This window is 
peculiar, because clicking on the close box 
clears the work area of the window, rather than 
simply closing it. This seems to make the 
iconbar icon somewhat redundant. 


Another novel feature is the inclusion of a 


menu bar. The software uses a two- level menu 
structure which can be invoked using the menu 
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button as normal. The purpose of the menu bar 
is to bypass the first level of the menu tree, 
which can make the selection of functions 
much quicker. Keyboard shortcuts exist for 
many of the menu options. There are three 
main menus: File, Scan and Edit. 


The Scan-Light system 


Perhaps the most important item on the 
menu is Scan. This offers two options, the first 
to perform a scan, and the second to power 
down the computer. This latter is another 
feature aimed at the Fax system, and will only 
work with a special power switching unit. Once 
the scan option has been selected, the 
software waits until the button on the scanner is 
pressed. The scanner should then be pulled 
down the page being scanned. The scanning 
stops when the button is released, although it 
will also stop when a full A4 page has been 
read in, or if the scanner is not moved for a 
couple of seconds or more. A roller on the 
underside of the scanner detects the speed of 
movement, and therefore it is not essential to 
move the scanner at a constant rate. There are 
limits, however, and a page cannot be scanned 
in less than about nine seconds. It is also 
essential not to move the scanner across the 
page as it is moved, otherwise the image will 
be distorted. To achieve this, the scanner has 
graduation marks to line up with the page. 
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There are two modes of scanning offered - 
Picture and Text. The text mode creates a 
simple black and white image of the page ata 
resolution of 200 dots per inch. The picture 
mode on the other hand uses a dithering 
technique to create the appearance of sixteen 
grey levels. This method, as its names 
suggests, is best suited to the scanning of 
pictures and photos. 
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A scanned image 


As the page is scanned, the image is built 
up in the window, although the scaling applied 
means that it will look a little strange. Once 
scanning is completed, the image can be 
viewed at 25, 50, 100 or 200% scales by 
selecting options from the Edit menu. A further 
option allows a scanned picture to be displayed 
in sixteen grey levels. The scanner assumes 
that pixels are square in shape, and therefore, 
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scanned images will appear best in mode 9, or 
ideally mode 20, but this latter requires a multi- 
sync monitor. Using mode 12 or 15 gives the 
image an elongated appearance on screen. 
Other Edit options allow you to edit the image 
pixel by pixel, and to select an area of the 
image for future operations. 


The File menu allows images to be loaded 
and saved, and sprites to be included within the 
image. Rather than follow the standard RISC 
OS Filer system, Computer Concepts has 
decided to design their own dialogue box for 
file operations. In use, | found this was more 
restricting than having Directory Viewers, and | 
don't fully agree with CC's departure from the 
standard which Acorn is eager for developers 
to follow. Images can be stored in one of two 
formats. The first is as a normal sprite, in which 
case the dithered effect is converted to grey 
levels, and the second as a compressed format 
which will be compatible with the Fax system. 
The first method has the advantage that a 
standard sprite file is produced, so this can 
subsequently be loaded into ArcPaint and 
edited, or incorporated into word processor 
documents etc. The second method saves disc 
space (an A4 sprite takes up a massive 483K - 
compression saves about 50%), but for all 
intents and purposes is useless without the Fax 
system. 


DOCUMENTATION : 
The Scan-Light package reviewed was a 


pre-release version, and the documentation 
was in fact the complete manual for the Fax 
system. However, we understand that the 
Scan-Light manual will consist of the relevant 
parts of this, and should end up as a 30-40 
page A5 book, which will most likely be wire 
bound in CC's normal style. 


The manual covers the principles behind 
the scanner, and explains in detail how to scan 
documents and use the other features of the 
software. The manual also warns that 
occasionally the scanner produces slight errors 
in the image (a fault of the scanner unit), and 
that red printing is not picked up by the 
scanner. The reason for this is that the scanner 
works by bouncing red light off the page as itis 
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scanned. This might sound a bit limiting, but in 
practice is not too great a problem because 
much apparently red printing actually contains 
a fair degree of black, and a brightness control 
on the scanner allows you to increase the 
sensitivity to pick this up. 


SHEET FEEDER 

An optional sheet feeder is also available. 
The scanner clips into this, and can then scan a 
page fed through automatically. This ensures 
that the scanner is not moved side to side as 
the page is scanned. The Scan-Light software 
includes all the support needed for the sheet 
feeder, and the unit simply plugs in between 
the scanner and the computer. 


CONCLUSION 

Scan-Light is certainly a very addictive tool, 
and for the right people it will also have many 
serious uses. In particular, when desktop 
publishing packages become available for the 
Archimedes, it will be a simple matter to include 
scanned pictures on a page. However, Scan- 
Light costs £516.35 (inc. VAT), and | feel that 


Screen display 


this will put many people off. The optional sheet 
feeder adds another £172.50 to the price, 
giving a total of nearly £700. This is 
comparable with a video digitiser and camera - 
a setup that could in some cases perform a 
similar function to a scanner. As nice as it is, 
Scan-Light is very much for the rich 
Archimedes owner. FRU 


Graphics Demo 1 
(£3.50) 
49 graphics demo programs 
plus MenuMaster—a program 
to allow you to edit the demo 
order and add your own 
favourite demos. 


Shareware Disc N° 1 
(£3.50) 
MenuMaster withseven more 
graphics demo programs plus 
Life, Mandelbrots, Structured 
Directory Lister, European 

Geography. 


Archimedes Shareware Discs 


Shareware Disc N° 2 
(£4.50) 

DFS reader, backup and 
archiver. 9 Graphics demos. 
Connect four, Mastermind, 
Solitaire and StarTrek games. 
256 colour Sprite Editor. 
CMOS ram Editor, Disc 
Editor, LQ printer font definer, 
Matrix Functions, Memory 
Mappings & Vector Listings 
BASIC fast Screenload. 


Save £1.50 - Buy all 3 


for just £10. 


Also Available... 
WIMP Template 
Editor (£8) 


Design your own windows, 
icons, menus and sprites — 
completely freehand in a 
wysiwyg format. Create 
WIMP templates which can 
easily be loaded from your own 
program — no more need for 
endless data blocks!!!! 


Based on the original “Form 
Editor” program from Acorn 
Computers, modified and 
extended (with Acorn’s 
permission!) 


Prices include UK p&p. European prices as UK. Outside Europe sent by surface but add £1 per order 
for airmail. Pay by UK cheque or Eurocheque or credit our Girobank account 2341107. Sorry no credit cards. 


Norwich Computer Services, 18 Mile End Road, Norwich, NR4 7QY. (0603-507057) 
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ARCHIMEDES OPERATING SYSTEM (4 USER'S GUIDE) 


Reviewed by David Pilling 


The natural reaction to a new book on the 
Archimedes OS, is Yippee! | can throw away my 
copy of Acorn's Programmer's Reference Manual 
(PRM). But as we shall see, this is not possible 
just yet. 


Archimedes Operating System 
(A User's Guide) 

Alex and Nic van Someren 
Dabs Press 

£14.95, 


In fact, Dabs new book (which I'll refer to by 
its initials AOS) falls into the area between the 
Archimedes User Guide and the PRM. This is 
difficult territory, since there is a danger of just re- 
hashing Acorn's User Guide for 
the Archimedes. The book 
actually opens by admitting 
that a copy of the PRM will also 
be needed by those producing 
serious applications. 


AOS is aimed at people 
who have read the User Guide 
and would like to move on to 
something more advanced, or 
those who have bought the 
PRM and would like some 
further explanation. The reader 
is assumed to have just the 
standard system: no space is 
devoted to things like the Acorn 
linker, or the various compilers 
etc. now available. Interfaces 
to the OS are described from 
either Basic or Basic assembler. In contrast, 
despite the A User's Guide subtitle, AOS is really 
of more use to programmers than users. In fact 
non-programmers would probably be best 
advised to avoid this book. 


One problem the writers have had to face is 
the now imminent release of RISC OS. Is the 
book compatible with this? In fact, the minimum 
of revision has been undertaken to ensure that all 
the features of Arthur described are relevant 
under RISC OS. So you can happily use the book 
with RISC OS, but some of the new features 
which are very useful even at a basic level, like 
the printer drivers and draw module, are omitted. 
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\ Dabband Guide 
ALEX & NIC VAN SOMEREN 


ARCHIMEDES 


OPERATING SYSTEM 


A User's Guide 


DABS. 
PRESS 


Having said that, coverage is pretty 
comprehensive: there are chapters on everything 
from the philosophy behind RISC processors to 
how to write your own modules and applications, 
including assembly language and the ARM chip 
set. As one might expect, there is information on 
the usual SWI calls concerned with files, 
miscellaneous OS functions, and character input 
and output. Other chapters cover vectors and 
interrupts, and conversion SWI calls. There are four 
chapters on the sound system as well as a chapter 
each on the Window Manager and font system. 


There is a good description of the command 
line interpreter, both from the star prompt, and 
from Basic or assembler (using OSCLI). This 
deals with such subjects as aliases and OS 
variables. Another sizable 
chunk deals with filing systems, 
the file switch module and filing 
system SWI calls. 


The chapters on modules 
and applications give coverage 
to the neglected subjects of 
memory management including 
claiming memory from the 
heap. A demonstration ‘shell’ 
program shows how to run one 
application from inside another. 


The description of the 
support chips (like VIDC and 
MEMC) is interesting, but 
probably stops just short of 
being really useful. The 
programmer's interface to the 
floating point unit is also described. 


Such comprehensiveness leads one to 
wonder whether a mere 14 pages on the Window 
Manager will convert the novice into a WIMP 
expert, or if the space could have been better 
used. Given this constraint, the chapter on the 
Window Manger is not too bad, with an extensive 
example at the end. However, not all the Arthur 
1.2 features are covered, and even the RISC OS 
extensions to the WIMP which a beginner could 
use are not mentioned. 


The chapters on the sound system present 
this difficult subject in a clear way. They 
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culminate in a voice generator module which will 
convert a sampled waveform into a voice module. 


The style of the book throughout is to take a 
section of the OS, describe it in general terms, 
investigate the various ways of calling the 
routines in it, and then provide some tutorial 
programs along with a few hints and tips. The 
programs are for the most part fairly illuminating 
and useful (e.g. a printer buffer module) but not 
exciting. A disc containing them is available for 
£9.95, or the book and disc can be obtained 
together for £21.95. There could have been more 
description of what the snags are with the various 
types of programs. For example, WIMP programs 
usually suffer from one set of problems, modules 
from another. 


Most of the technical information in the book 
can be found in either the PRM or the User 
Guide. There are interesting snippets throughout, 
and of course all of the examples are new. Some 
things which would take great powers of 
deduction to derive from the PRM are brought 
into the light. The contentious issue of the serial 
port is for the most part avoided. This is 
understandable, but many people (programmers 


DIARY for Archimedes 


See a full year at « glance. 
A single screen shows part of the entry for 
every day of the yenr. Sex the free days or spot 
that clusive entry al a glance 


Instant viewing of the full entry for any day, 
Skim the mouse over the year to scan the full 
entries for any diay, & just ‘click’ on a day to 
make an entry 


Print all of & month with just one command, 
Select the month, of meanths, to be printed 
Then choose from ether a full page, weekly 
formatiod printout, or a quick single line per 
day, showing anly those dears waits farce is 
entry 


"Arthur" version £9.95 


fine! vat A UK. pApt 


MULTI-TASKING "RISC-OS" DESKTOP 
version £14.95 
Ready in April, wll allow user seleetion of 
larger diary sizes & string search facility 


**** SPECIAL OFFER for this month **** 
“Arthur” version including upgrade, only £10.95 


Cheque or 1.0. to Offietal Orders also welromr 
QUERCUS COMPUTER SYSTEMS 

Courtyard House, North Otterington, 
Northallerton, N. Yorks. DL7 SEP (tet. 0009 700-43) 


and users alike) will have to use this at some 
time, even if they aren't interested in 
communications as such. A few notes on how to 
wire serial leads would have been most useful. 


The authors write in an informal and 
interesting way, which makes the book easy to 
read, and although | can believe that it would be 
easier to find information more quickly in this 
book than from the PRM, neither approaches the 
quality of the old BBC Advanced User Guide as a 
high speed reference work. 


AOS is spiral bound with a handy place 
marker in the cover, and is highly professional in 
appearance. Archimedes books are hardly 
commonplace, and Dabs are to be congratulated 
for putting so much effort into something for the 
Archie. 


Overall, a well written and well presented 
book offering good value for money. Those 
looking for the whole truth about the Archie OS 
will have to wait for a far weightier (and probably 
more expensive) tome in the future. For many 
people though, this will make interesting and 
useful reading for now. 


GEOSCAN 


A NEW GEOGRAPHY AND ECONOMICS PROGRAM ON WORLD 
DEVELOPMENT 


WRITTEN SPECIALLY FOR THE ARCHIMEDES SERIES 310 & ABOVE 
Simon Beaton B.Sc & Ron Dutton Ph.D 


GEOSCAN consists of a single disc containing a large and varied database 
covering locational, physical, climatic and socio-economic information on 
100 countries of the world. With this data there are program facilities for 
displaying the information in the form of text, statistics, graphs and 
diagrams, as well as for analysing and relating the data through rankings, 
correlations, scattergraphs, averages and mapped locations 


GEOSCAN has wide applicability as a straightforward and self-contained 
learning resource which will give students of all ages, valuable experience 
in the use of the computer for information retrieval. However, the 
comprehensive ASSIGNMENT PACK which accompanies the program has 
been written especially for students working af the level of GCSE and 
beyond. The content and the ready-to-duplicate nature of the worksheets 
will make them appeal particularly to teachers seeking Assignments for 
GCSE Geography and Economics. 


An important feature of GEOSCAN is the annual up-date of its database as 
the latest statistics become available trom international agencies. Each 
year, a new disc will be offered at very low cost, 10 the registered holders of 
the program , in exchange for their existing disc. 


PRICE-£45,00 including VAT 


Order direct, or send for Information leaflet to 


PASSKEY MARKETING 
P.O. Box 649 Shenley Lodge Milton Keynes MKS 7AX 
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ACORN'S RAY TRACER (continued from page 19) 
Wie, cee oe et pe a oe ys a ee i ara 


2330 FIMUL=F1XSUB+4: F1XDIV=F1MUL+4 
2340 FLOATB=F1XDIV+4 : FINTEGB=FLOATB+4:F 
SQRT=FINTEGB+4 
2350 PROCB(F1ILDA) : PROCB(F1MUL) :PROCB(F1 
ADD) 
2360 PROCB(F1XSUB) :PROCB (FSQRT) : PROCB(F 
1STA) 
2370 FACC=0:FACCX=1:FGRD=2:FSIGN=3:SP=1 
3 
2380 REM Call with CALL CODE%,c(),sz(), 
b(),H%,L,M% 
2390 REM c array, Sz array, b array, H% 
hit/nohit, L length, n which sphere 
2400 ADDRn=0:ADDRL=ADDRn+8 : ADDRH=ADDRL+ 
8: ADDRb=ADDRH+8 : ADDRSz=ADDRb+8 : ADDRc=ADD 
RSz+8 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 


FORZ=0TO2STEP2 
P%=CODE$ 

(OPT Z 

STMFD SP !,{RO,R14} 
MOV R10,R9 ;arg list 
MOV R11,#0 ;N% 

LDR R12, [R10, #ADDRb] 
LDR R12, [R12] 

ADD R12,R12,#12 ;base of b() 
-LOOP ADD R9,R11,R11,LSL #2 

ADD R9,R9,R12 ;address% of b(N%) 
BL FLLDA 

BL F1IMUL 

LDR R7, (R10, #ADDRSz]} 

LDR R7, [R7] 

ADD R7,R7, #12 

ADD R6,R11,R11,LSL #2 

ADD R9,R6,R7 

BL F1ADD 

LDR R7, [R10, #ADDRc] 

LDR R7, [R7] 

ADD R7,R7, #12 

ADD R6,R11,R11,LSL #2 

ADD R9,R6,R7 

BL F1XSUB 

TEQ FSIGN, #0 

BPL LOOPEND 

MOV FSIGN, #0 

BL FSORT 

ADD R6,R11,R11,LSL #2 

ADD R9,R6,R12 ;address% of b(N%) 
BL F1ADD 

TEQ FACC, #0 

EORNE FSIGN, FSIGN, #&80000000 
TEQ FSIGN, #0 

BMI LOOPEND 


7b) 
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2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
lse 


2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 


2900 


CMP FACCX, #&70 

BCC LOOPEND ;if t<le-5 break 
LDR R7, (R10, #ADDRH] 

LDR R6, [R7] 

CMP R6, #0 

BEQ NOHIT 

MOV R6,#0 ;if H% 

STR R6,[R7] ;H3=0 

LDR R9, [R10, #ADDRL] 

BL FISTA ;L=t 
STR R11, [SP] 
B LOOPEND 
-NOHIT STMFD SP !,{R0,R1,R2,R3} ;e 


;MS=N% 


LDR R9, (R10, #ADDRL] 
BL F1LDA 
LDMFD SP !,{R4,R5,R6,R7} 


BL FCMP ;test L>t 

BCC LOOPEND ;ift<L 

MOV RO,R4 

MOV R1,R5 

MOV R2,R6 

MOV R3,R7 

BL FISTA ;L=t 

STR R11,[SP] ;M3=N% 
.LOOPEND ADD R11,R11, #1 
LDR R7, [R12,#-12] 

CMP R7,R11 

BCS LOOP 

LDMFD SP !, {RO} 

LDR R9, (R10, #ADDRn]} 

STR RO, [R9] 

CMP RO,RO 

LDMFD SP !, {PC} 

»FCMP CMP (FSIGN+4),FSIGN ;check r 


O-r3 against r4-r7 


3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 


BNE FCMPDONE 

TEQ FSIGN, #0 

BMI FCMPNE 

CMP FACCX, (FACCX+4) 
CMPEQ FACC, (FACC+4) 
MOV PC,R14 

+FCMPNE CMP (FACCX+4),FACCX 
CMPEQ (FACC+4),FACC 
.FCMPDONE MOV PC,R14 
] 

NEXT 

ENDPROC 


DEF PROCB(RETURN A) 


A=A+8+(!A AND&FFFFFF) *4 
ENDPROC 
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PIPEDREAM 


POWER AT YOUR FINGERTIPS 


PIPEDREAM 

o The best word processor for the Archimedes, It has dynamic 
on-screen page breaks, multi-column text and ‘live’ embedded 
numbers and calculations. 


The fastest and most powerful spreadsheet for the Archimedes. It 
can sort, format text around numbers and store and quickly 
recalculate large models. 


The most flexible database for the Archimedes, It can store a huge 
number of fields, search, sort and select records and have fields 
wh re calculated from other values. 


Complete integration of word processor, spreadsheet and 
database — no need to exchange data between several programs. 


Amail-shot program which can store names and addresses, write 
the letter to send to them and selectively mail to each one, 
including calculations. 


Ideal for writing invoices, statements and estimates: the text and 
figures can fit easily into a pre-designed form — and, of course, the 
figures are ‘live’ 


An excellent way to record customer or sales information: keep a 
database of sales leads, sort it on different criteria, produce the 
required totals and select and print out the key information. 


Compatibility with 4 different computers: the BBC Micro, the 
Acorn Archimedes, the Z88 and the IBM PC. 


A pull-down menu and help system to make it easy for you to get 
started, 


Built-in file transfer with PipeDream on the portable Z88 so that 
you can continue work away from your main computer. 


SPELLCHECK 

© PipeDream SpellCheck is now available, with a dictionary of 
93,003 words and the ability to check over 40,000 words per 
minute on the Archimedes. 


VIEW PROFESSIONAL 

© The BBC Micro version of PipeDream which provides complete 
file compatibility with PipeDream and with the Z88 and which 
shares many of PipeDream's features. 


PipeDream costs only £99.00 plus VAT. View 
Professional £60.00 plus VAT and SpellCheck 
£43.00 plus VAT 


To order PipeDream, View Professional or 
SpellCheck, or to find out more, call us on 0954 
217472. You can pay by VISA or Access by 
phoning us with your card number @ = ES 


Sct COMAETE ND SeND COUR al 
PipeDream (View Professional C1 Auge 
Name 
Address 


Post Code 


COLTON SOFTWARE, BROADWAY HOUSE, 
149-157 ST. NEOTS ROAD, HARDWICK 
CAMBRIDGE C83 7Q), ENGLAND. 

FAX: (0954) 211607 
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Using the RISC User Toolbox with RISC OS 


David Spencer updates the RISC User Toolbox fo work with RISC OS. 


Since details of RISC OS became available, 
we have endeavoured to make all our 
programs fully compatible with it (as well as 
with Arthur). However, the RISC User Toolbox 
was started well before RISC OS was 
announced, and is not fully compatible as it 
stands. Most of the commands do however 
function correctly, there being only two 
problems. Firstly, the disassembler incorrectly 
shows the destination of branch instructions, 
and secondly, the command *DEDITF (invoke 
the disc editor at the start of a named file) does 
not work. Adding the listing given here to the 
complete Toolbox source program resolves the 
first problem, and partly cures the second. The 
amendments also change the title of the 
module to ‘Toolbox’ (instead of 
'RiscUserToolbox'). This allows “HELP 
TOOLBOX to be used. 


E-FORMAT DISCS 

The 'E' format for discs uses a scatter map 
technique to allow files to be split in several 
chunks. Because of this, the *DEDITF 


command, will not work with 'E' format discs, 
even with the amendments included (although 
no harm we result if you try it). The other disc 
editor commands, DEDIT and DEDITT, work as 
before. However, care should be exercised 
when using any disc editor on an 'E' format 
disc, as the layout of these discs is more 
complex than that of the other formats. This, 
coupled with the fact that files are no longer 
stored in a single contiguous block, makes it all 
too easy to accidentally destroy a ‘sensitive’ 
area of the disc, and possibly render that disc 
totally unrecoverable. 
170 EQUS "Toolbox":EQUB 0 
6025 MOV R5,R1:MOV R1,#1:MOV RO, #15 
6026 SWI "OS Byte":MOV R1,R5 
10470 MOV RO,#32:ADD R1,R12, #1024 
10570 ADD R1,R1,#64 
10605 SWI &117:SWI &110 
10606 MOV RO,#8:BL sndnull 
10880 .swi8 STMFD R13!,(R14} 
10890 SWI "Debugger Disassemble" 
10900 LDMFD R13!, {PC} 


Delete lines 10910 to 11060. 


ACORN'S RAY TRACER (continued from page 47) 


3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
VPOS 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
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DEF PROCTMDSAVE (A$) 
SYS "OS SpriteOp", SO_Save,SA%,A$ 
ENDPROC 


DEF PROCTMDLOAD (A$) 
sys "OS SpriteOp", SO Load, SA%,A$ 
ENDPROC 


DEF PROCHDR 

CLS 

PRINT"Computing frame ";frame 
PRINT"Y coordinate="; :cx%=POS:cy%= 


ENDPROC 


DEF PROCinit 

1s1(0)=-30:1s1 (1)=20:1s1(2)=-30 
1s1()=1s1() /MOD1s1 () 
margin=0:maxframe=129 
width=64:height=64 

LM=0+margin: RM=width*4-1-margin 
BM=0+margin: TM=height* 4-1-margin 


3490 
3500 
3510 
3520 
3530 


XC=width*2: YC=height*2:VD=3800 
NoSpheres=15 

SASIZE%=130* (width*height+256) 
res=1 

ENDPROC 


Listing 2 
10 REM >Display 
20 REM Display ray traced sequence 
30 X3=OPENIN"RaySprites" : TS=EXT#X3+16 
40 CLOSE#X%:DIM sp T%:!sp=T%:sp! 4=0 
50 sp! 8=16:sp!12=16 
60 SYS "OS SpriteOp", &10A, sp, "RaySpri 


70 MODE 13:O0FF 

80 REPEAT 

90 FOR frame=0 TO 129 

100 SYS "OS SpriteOp", 6122, sp, RIGHTS (" 
000"+STRS$frame, 3), 512,384 

110 WAIT:WAIT 

120 NEXT 

130 UNTIL FALSE 


RU] 
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SILICON VISION 


SOFTWARE FOR THE ARCHIMEDES & BBC 


SolidCAD ARC-PCB 
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£49.95 (ARC & BBC) New 


REALTIME SOLIDS MODELLER 


£89.95 (ARC) New with prices fram £1220 t 
£195.00 (ARC) New 


REALTIME GRAPHICS LANGUAGE 
RiscBASIC 
£49.95 (BBC) 


SUPER-DUMP 


vs 
suf ; 

Optir 9 " 
handle 


£99.95 (ARC) New 


£15.95 (BBC), £24.95 (ARC) New 


RiscFORTH 
Presentation Manager ‘ y 


the ARM 


£34.95 (BBC), £49.95 (ARC) New 


SILICON VISION LTD, SIGNAL HOUSE, LYON ROAD, HARROW 

MIDDLESEX HAI 2AG. TEL: 01-422 2274 or 01-861 2173 

FAX: 01-427 5169. TELEX: 918266 SIGNAL G. 

ESS (Access/Mastercard/Eurocard accepted) 

All prices include VAT and Carriage (Overseas orders add £4) £99.95 (ARC) New 


MULTI-TASKING BASIC 

| have read elsewhere that multi-tasking programs 
running under RISC OS cannot be written in Basic - 
instead they must be written in C or assembler. Surely 
this is very limiting? | have also heard that some of the 
Welcome disc utilities are written in Basic. Can you 
please explain this apparent anomaly. 


Paul Roberts 


Mr, Roberts is not alone in being contused over this 
matter. What he has read is that Basic cannot multi-task, 
i.e. that it is not possible to enter, edit, and test a Basic 
program in one window, while, say, using a word 
processor in another. But a multi-tasking application can 
be written in Basic, and as you say, some of the 
Welcome disc programs are, The RISC User Notepad 
elsewhere in this issue shows how this can be done. 


CONFIGURING MEMORY ALLOCATIONS 
| heartily condone the thoughts of Barbara Wilson 
(Postbag, Volume 2 Issue 2). For people like us, 
manuals are a little short of baffling. "Bad DIM at line 
440" it said, as | tried to access the Desktop; "No room 
in RMA" is another of its tricks, or "No room” which is 
even worse. No room where? | consult the manuals - 
no mention of these barbaric statements, least of all 
how to remedy them. What is RMA anyway, and 
Screensize? Where is the information about the way to 
control them? The CONFIG. command is an 
unexplained maze to me, 

Laura Blackburn 


To operate both effectively and efficiently, the 
Archimedes allocates areas of memory to different tasks 
at different times. Changing the memory allocation 
normally requires a complete reset (this is why Ctrl- 
Break has always been required in the past following the 
use of “CONFIG.). 


RMA refers to memory allocated for relocatable modules, 
and much applications software is supplied in this form. 
The simplest solution to the RMA size problem is to 
QUIT from Basic (type *QUIT), and then load any 
relocatable module, before returning to Basic (“BA.). At 
this point, the Operating System can dynamically 
allocate memory as required. 
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Alternatively, sufficient memory can be allocated in 
advance using "CONFIG. Remember that on a 300 
series memory is allocated for most purposes in pages of 
8K, and under Arthur it is the number of pages which is 
defined. Thus to specify a screen size of 80K (sufficient 
for mode 12 for example), you should type: 
*CONFIG. Screensize 10 

and press Ctrl-Break, to allocate ten 8K pages. Under 
RISC OS, memory allocations can be specified in pages 
or ‘K’, and are shown as ‘K' in a “STATUS display. 
Further, a Task Manager allows the mouse to alter 
dynamically a visual display of memory allocations on 
screen. See RISC User Volume 1 Issue 2 for more 
information on reconfiguring your Archimedes 


COPYING FILES 

| am having great fun with my Archimedes 310, with a 

90% success rate for programs typed in. However, there's 

one problem | can't overcome, the transfer of data 

between discs in different drives. | have read the section 

on file transfer in the User Guide, but | still can't sort it out. 
G.Drywood 


The most direct way to transfer an individual file is by 
using “COPY. For example, to copy file PROG? in the 
current directory on drive 0 to a directory $.MyProgs on 
Orive 1 just type: 

*COPY PROG] :1.MyProgs.PROG1 
The entire content of a directory can be copied in the 
same way, Thus: 

*COPY $.Letters :1,Pipedream.Letters R 
will copy the directory Letters on the current drive to be a 
sub-directory of Pipedream on drive 1. The 'R’ at the end 
of the command stands for ‘Recurse’, and is what causes 
the “COPY command to repeat the process with all the 
files in the specified directory. 


Under the RISC OS Desktop, the task is simplicity itself. 
Use the mouse to open and display the two directories. 
Dragging an image of a file from one to the other will 
produce a copy of the relevant file. Alternatively, select 
the directories or files to be copied, click on the directory 
to which they are to be copied, and then press the menu 
button to reveal a short menu from which COPY can be 
selected. The RISC OS Desktop really does make this 
and many other tasks very simple. 
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HINT’ & Ty 


HINT Tip 


Rounded up by Lee Calcraft 


CLOSING FILES 

by Sheridan Williams 

In routines such as error handlers it is often important to 
close particular data files which have been left open. The 
command *CLOSE or CLOSE# 0 may be used for this 
purpose, but these blanket commands close ail open files, 
including obey files, and others which may need to be 
kept open. 


The alternative is to close files specifically, but the 
problem here is that if you attempt to close a file that is 
Not open, errors can occur. The solution is to use the 
procedure PROCclosefile below. This takes as a 
parameter the file handle of the file to be closed, and only 
attempts to close the file if it is open. When it has closed 
the file, it resets the file handle to zero to indicate that it is 
closed, 

DEFPROCclosefile (RETURN handle%) 

IF handle%>0 THEN CLOSE# handle?:handl 

et=0 

ENDPROC 


RISC OS MODULE HELP 
by Dennis Weaver 
Although the Arthur operating system and accompanying 
modules give useful syntax information when you type: 
*HELP <command> 
the machine is less communicative when you request 
help on the module name itself. RISC OS is decidedly 
more helpful. Issuing: 
*HELP <module name> 
now gives information on commands and configuration 
options provided by the module. 


SCREEN MODE AND THE RISC OS DESKTOP 
by Lee Calcraft 
RISC OS allows programs to be booted using Shift-Break 
whether the Desktop is active or not. All you need to do is 
to set ‘OPT4,3. But you may have problems with screen 
RAM when booting from the Desktop. Even if you have 
configured 160K of screen RAM, the Desktop will 
dynamically alter the total RAM available for the screen 
on the basis of the configuration of a new parameter: 
WimpMode. To permit a program which boots from the 
Desktop to use up to 160K of screen RAM, use: 
*Configure WimpMode 15 
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followed by Ctri-Break. This will work regardless of the 
amount of screen RAM configured. In other words, you 
can have a 160K screen when the screen size is 
configured to only 80K - all thanks to RISC OS dynamic 
RAM allocation. 


PASSING PARAMETERS 
by David Graham 
The SYS call "OS_GetEnv" can be used to read any 
parameters supplied when a program is run. For example, 
the following short program stores in name§ the full 
command supplied to the operating system when the 
program is run using “filename: 

10 SYS "OS _GetEnv" TO name$ 

20 PRINT name$ 
If the program is saved under the name test, then typing: 

*test fred 
will set the variable name$ to: 

BASIC -quit "test" fred 
The parameter fred at the tail end of the string can be 
picked up and used in whatever way the programmer 
wishes. For example, as a data filename. Since the call 
works by picking up the last issued star command, you 
must ensure that no star commands are issued between 
running the program using “filename, and issuing the SYS 
call, 


CARE WITH SHIFT 
by Lee Calcraft 
The use of Basic’s shift and rotate operators ("<<", ">>" 
and ">>>") can give rise to syntax errors in certain 
circumstances because the expression evaluator appears 
to confuse them with the “greater than” or “less than” 
operators (">" or “<"). The following statement, for 
example, fails: 
IF x>>>2=4 THEN VDU? 
To resolve the problem, just bracket the expression, thus: 
IF (x>>>2)=4 THEN VDU7 


WHICH FILING SYSTEM? 
by David Graham 
It is sometimes useful in a program to be able to check 
which is the currently active filing system. This is easily 
achieved with the following SYS call: 

SYS "OS Args" TO fsyst 
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After making the call, the variable fsyst holds the number 
of the current filing system. The three most commonly 
encountered filing system numbers are: 


Econet 5 
ADFS 8 
RAM 23 
NO MORE LINE NUMBERS 


by Roger Wilson (Acorn) 

When Basic is called on exit from Twin, either when Twin 
is used without line numbers, or when line numbers have 
been put out of sequence in Twin, Basic automatically 
renumbers the incoming program with the equivalent of: 


RENUMBER 10,10 


A problem arises with Basic programs of longer than 6527 
lines, because when numbered by tens, they will exceed 
the highest line number that Basic can cope with (65279). 


The solution is to make a patch in RAM Basic so that it 
renumbers in steps of one rather than 10. To do this, find 
the code right at the start of Basic where the message 
"Program renumbered” resides, and alter the two 
instructions: 

MOV R4,#10 

MOV R5, #10 
to 

MOV R4,#1 

MOV RS, #1 


WIMP GET ICON ERROR 

by David Spencer 

The Programmer's Reference Manual (page 472) 
erroneously gives the name of the SWI call 
"Wimp GetIconState" as "WimpGetIconInfo". 


UTILITY BUG 

by Michael Spalding 

There appears to be a major bug in Arthur 1.20 (but not 
RISC OS) which affects the writing of utility commands - 
that is machine code routines with a filetype of &FFC. 
When a utility is invoked, the operating system allocates 
1K of workspace to it, setting register R12 to point to the 
bottom of this block, and R13 to the top. If you use R13 
as a stack pointer, then the stack grows down from the 
top of the workspace. However, opening a file using SWI 
"OS_Find" corrupts the top few bytes of the workspace, 
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overwriting the stack and causing havoc. This was found 
by chance, and similar nasty behaviour might happen with 
other SWI calls. The cure is to move the stack lower down 
(using perhaps SUB R!3,R13,#256) at the start of the 
utility. See the Basic program lister elsewhere in this 
RISC User for an example of this. 


UP AND DOWN BY THE PAGE 

James Lovejoy 

The Page Up and Page Down keys on the Archimedes 
are the same as the Cursor Up and Down keys, but with 
the effect of shift reversed. For example, if the 
commands: 


*FX 4 2 

*FX 225 &80 

*FX 226 &90 
were issued, then the Up and Down Cursor keys would 
produce ASCII codes &8F and &8E respectively, while 
Page Up and Page Down would generate codes &9F and 
&9E. However, if the Shift key was pressed, the codes 
would be reversed - the cursor keys producing &9E and 
&9F, and the Page Up and Down keys &8E and &8F. One 
effect of this is that almost all software that uses Shift in 
conjunction with Cursor Up and Down will also accept 
Page Up and Down as an alternative. 


DELAYED SYS 
David Spencer 
The Archimedes Sound Scheduler module provides a call 
to execute a SYS command after a given delay. It takes 
the form: 
SYS "Sound QSchedule", delay, 
&F000000+sys, RO,R1 
Where sys is the number of the SYS call to make (found 
from the Programmer's Reference Manual, and RO and 
R1 are the parameters to pass to it. For example: 


$&9000="Your Time Is Up!!"+CHRSO 

SYS "Sound QSchedule",1000, &F000002, 

&9000,0 
This uses SYS call 2 which prints a text string from a 
given address in memory. The length of the time delay 
depends on the value given in the command and the 
TEMPO setting. For the default value of TEMPO (4096) 
the delay is in 1/100s of a second, so the above text is 
printed after 10 seconds. It is possible to queue several 
calls simultaneously, and this is a simple alternative to 
using events or interrupts. RU] 
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In 1982 when Acorn announced the release 

of the BBC Micro, BEEBUG was formed to 

provide a magazine and user group for the 
new computer. Since then BEEBUG has 


continued to grow and provide new services. 


We are shortly expanding into larger 
premises and therefore have some 
interesting staff vacancies. 


ENGINEER 


Full Time & Freelance 


A full time engineer is now needed to enable 
us to improve our repair and upgrade 
services. In addition to this, the successful 
applicant will be involved in the design and 
development of new hardware projects for 
the Archimedes, and subsequent new 
machines that Acorn will be releasing. We 
also require the services of freelance 
engineers to work on design and 
development projects from their own homes. 


If any of these positions 
are of interest and you 
would like to work in a 
friendly but demanding 
company, please apply in 
confidence giving full 
details of yourself and 


any relevant experience. 


Personnel Manager, 
BEEBUG Limited, 
Dolphin Place, Holywell 
Hill, St. Albans, Herts. 
AL1 1EX 


Your Chance To Join The Team 


SOFTWARE PROJECT CO-ORDINATOR 


This is a new and particularly interesting position for someone 
who has an eye for fine details. Reporting to the software 
manager, the successful applicant will have the opportunity to 
control new software projects for the Archimedes. This is not a 
programming position, but knowledge of Basic and Assembler is 
essential (and C preferable) together with familiarity of popular 
applications software. The ability to write clearly will also be 
necessary to produce program specifications and user 


BEEBUG is well known not only as the 
publisher of RISC User, the leading magazine 
exclusively for the Archimedes, but as the 
publisher of BEEBUG, established seven 
years ago, and now the specialist magazine 
for users of the BBC Micro, Master and 
Compact. We also have a large showroom 
and Mail Order operation, supplying goods 
throughout the world all backed up by our 
Technical Support Department. Beebugsoft, 
our software division, provide an exciting 
range of products for the BBC, Master and 
Archimedes. 


TECHNICAL SUPPORT 


ASSISTANT 


Our Technical Support team provide answers 
and advice on an extremely wide range of 
subjects, covering both software and 
hardware on the BBC Micro, Master and 
Archimedes computers. We are looking for 
someone who owns a computer themselves 
and can demonstrate their enthusiasm on the 
subject. Training will be given, although a 
certain level of knowledge concerning 
existing products will be necessary along 
with the ability to express yourself clearly in 
writing and on the telephone. Experience on 
PC compatibles would also be a benefit. 


documentation. 
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THE RISC USER NOTEPAD A multi-tasking notepad which runs under the RISC OS Desktop. 
This month's program includes just the basic window operations. 


PROCEDURE LIBRARY 
The first two procedures from the RISC User 
Procedure Library, The routines read mouse button 
and key presses, and check the mouse's position, 


BASIC PROGRAM LISTER 
A utiliy to list a Basic program directly from a file (with 
versions written both in Basic and machine code). 


THE BASIC TOKEN TABLE 
A demonstration program which lists all the Basic 
keywords, together with their tokens. 


ARCHIMEDES VISUALS 
Two image wrapping programs which run in real time. 


TOOLBOX WITH RISC OS 
A complete version of the RISC User Toolbox which is 
fully RISC OS compatible. 


ACORN'S RAY TRACER 
A program to ray trace objects and create animation *k BONUS ITEMS *k 


sequences. 


DOMINOES 
A multi-tasking desktop dominoes game. 


ART NOUVEAU 
A sample screen created using this new drawing 
Package 
COMPUTER CONCEPTS SCANNER 
An image produced with the Scan-Light scanner, 
reviewed in this issue 


THE MOLECULE 
The version of the ray tracing program which draws 
the now famous molecule. 


ARCSCAN DATA 
Index entries for this issue of RISC User and the latest 
BEEBUG (Vol.7 No.9) to be used with Arescan. 
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£3.90 + £1 p&p 


BEEBUG Ltd 

Dolpin Place, Holywell Hill, St. Albans, Herts 
AL1 1EX 

Tel. (0727) 40303 
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MEMBERSHIP 


\ RISC User is available only on subscription at the rates shown below. Full subscribers to RISC User may also take out 
a reduced rate subscription to BEEBUG (the magazine for the BBC micro and Master series). 


Al subscriptions, including _ RISC USER SUBSCRIPTION RATES RISC USER F; 
y, 


overseas, should be in 

pounds sterling. We will & BEEBUG 

also accept payment by £1450 1 year (lO issues) UK, BFPO, Ch.| £23.00 

Connect, Access and £20.00 Rest of Europe & Elre £33.00 

Visa, and official UK £25.00 Middle East £40.00 

orders are welcome. £27.00 Americas & Africa £44.00 
£29.00 Elsewhere £48.00 


BACK ISSUES 
We intend to maintain stocks of back issues New subscribers can therefore obtain earlier copies to provide a i: 
complete set from Vol.1 Issue 1. Back issues cost £1.20 each. You should also include postage as shown: % 


Destination UK, BFPO, Ch.is EuropeplusEire Elsewhere \ 
First Issue 60p £) £2 \ 
Each subsequent Issue 30p 50p £) 
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MAGAZINE DISC 


/| The programs from each issue of RISC User are available on a monthly 3.5" disc. This will be available to order, or 
you may take out a subscription to ensure that the disc arrives at the same time as the magazine. The first issue (with 
six programs and animated graphics demo) is at the special low price of £3.75. The disc for each issue contains all the 
programs from the magazine, together with a number of additional items by way of demonstration, all at the standard \ 


/ rate of £4.75. 
Disc subscriptions include postage, but 


MAGAZINE DISC PRICES you should add 60p per disc for | 
Single issue discs individual orders (30p for additional 


discs on the same order). 


Six months subscription 
Twelve months subscription 


All orders, subscriptions and other 
correspondence should be 
addressed to: 


/ RISC User, Dolphin Place, Holywell Hill, St Albans, Herts AL] 1EX. 
Telephone: St Albans (0727) 40303 
(24hs answerphone service for payment by Connect. Access of Visa card) 


